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BACKGROUND OF THE INVENTION 

(1 ) FIELD OF THE INVENTION: The present invention is directed to a method, an article of manufacture, 
and a system incorporating a computer system of a financial institution, wherein data fields are 
provided and access thereto is initiated for the generation of financial information for format and 
transmission via electronic mail to the customer on an incremental time basis. 

(2) BRIEF DESCRIPTION OF THE PRIOR ART: Electronic mail (or "e-mail") is a popular way for people 
to communicate. Using e-mail, a person can send messages and other information such as formalized 
documents, etc., that are in digital form, either in the mail itself, or as an "attachmenf in a rather 
lengthy e-mail configuration. 

E-mail communication systems are generally regarded as multi-cast store-and-forward bi-directional 
communication systems. A user can send e-mail messages to one or more recipients at a time. An e-mail 
system is regarded as bi-directional as, usually, a user can both send and receive e-mail messages. Uni- 
directional systems are also popular. 

When using e-mail to communicate, a user will typically create a message using an e-mail program 
running on a computer that is or can be connected by a network to other computers. The message will include 
the e-mail address of the intended recipient. When the user has finished entering the message, the user will 
"send" the message to the intended recipient. The message is electronically transmitted via the computer 
network. The recipient, also using an e-mail program running on a computer connected to a computer 
network, can then read the received message. 

A common computer network used to send and receive e-mail is the Internet. The Internet allows 
users to send and receive e-mail to and from computers around the world. Typically, each user will have an 
Internet e-mail address unique to that user, e.g., bob@pto.com. A user with an e-mail account and a computer 
that can connect to the Internet can easily send and receive e-mail over the Internet. Users connect to the 



Internet to send and receive e-mail through a number of on-line networks, such as America on Line, 
CompuServe, Microsoft Network, and the like. Using a computer with a modem, the user is supplied with a 
unique access number which is sourced through the network for sending and receiving e-mail. 

In the past, banks and other similar financial organizations, have customarily sent out statements to 
customers on a given time basis, such as monthly. Generally speaking, separate accounts will generate 
statements which have been mailed to the customer. Recently, many banks and other financial institutions 
have offered statements in which all accounts are included in one statement, i.e., 2 or more checking accounts, 
a savings account, a line of credit, and the like. 

Most banks offer a telephone "800" number for a customer to make specific inquiry regarding a debit, 
credit or balance for a particular account Most of the "800" numbers are automated and computer generated 
voice responses deliver the required messages and Information to the customer upon the customer entering 
into the phone pad identification numbers for the account and other information. Often times, these "800" 
numbers are not satisfactorily responsive and result in delays in communicating the desired information to the 
customer, with the customer being placed on "hold" for many minutes. 

The present Invention addresses many of the problems described above by providing a method and 
system for sorting, generating and presenting banking and other financial data in a format from a host 
computer system, I.e., a host server, to a computer integrated into an e-mail system, preferably via the Internet 
as above described, for a very frequent ti^ansmission of the requested and desired Information to the customer, 
such as on a daily basis, i.e., once each morning at a designated time. In this manner, the customer may be 
serviced with a "daily" or almost continuous data sti-eam containing debit, credit and balance information on 
a host of accounts with the financial institution, such as a Bank, savings and loan association, or the like. The 
Information Is provided in a format which offers security to the customer with respect to proper identification 
of accounts and the like. 



DEFINITIONS 

As used in the specification and the claims, the following words and phrases shall have the meanings 
corresponding thereto: 

(1 ) "Checking Accounf : a bank account against which the depositor can draw checks. 

(2) "Savings Accounf: an account (as in a bank) on which interestis usually paid and from which 
withdrawals can be made usually only by presentation of a passbook or by written 
authorization on a prescribed form. 

(3) "Certificate of Deposit': an account (as in a bank) on which interest is usually paid at an 
agreed upon rate for an specific, agreed upon, time period. For example, 7% for 90 day. 
Withdrawals of principle are usually not allowed (without penalty) during the terni of the 
agreement. 

(4) "Loan Accounf: an account (as in a bank) reflecting money lent at interest. 

(5) "Discount Loan Accounf: an account (as in a bank) reflecting money lent at interest where 
the interest to be charged during the term on the loan is computed at the time the money Is 
lent and added to the amount borrowed to determine the amount of the loan. The borrower 
receives as proceeds, the amount of the loan less the pre-computed Interest (the discounted 
amount); 

(6) "Simple Interest Loan Accounf: an account (as in a bank) reflecting money lent at interest 
where interest charged is computed and added to the balance of the note on a daily basis 
using a daily interest rate factor. 

(7) "Laser Notice File": a data file containing customer notices (interest paid, NSF checks, 
payments due, etc.) formatted for printing on a laser printed. 

(8) "NSF Check": a check presented payment on an account against which the depositor can 
draw checks when there are not sufficient funds in the account to pay the check. 

(9) "Predetermlnable Time Increment Basis": For example, dally at a set time each day. 

(10) "Officer Order": account information sorted in order of the initial of the bank officer 
assigned to the account (rather than in another order such as account number). 

(11) CSV attachments: (comma separated values) information in a computer data file where 
each file record contains several data elements each separated by a comma. The comma 
marks the end of one data element and the beginning of another. 



Qwicken attachments: Information in a computer data file formatted to the requirements 
of the popular personal accounting program Quicken, for importing financial information 
into the program. 



SUMMARY OF THE INVENTION 

The present invention provides a metliod, system and article of manufacture incorporating a financial 
institution computer system for extracting financial data within a data base in the computer system and for 
formatting the data and thereaftertransmitting the formatted data via electronic mail. Electronic information 
is maintained on financial accounts of a customer within the data base in the financial institution computer 
system. The electronic information is processed within the data base to identify and extract pre-selected 
data therefrom. The data is electronically formatted for transmission to the customer via electronic mail. 
The formatted data is transmitted to a location designated by the customer via electronic mail for storage 
within and readout on a computer system of the customer. 

The financial institution preferably is a banl<. As used herein, the computer system may include 
a computer server, one or more personal computers and any otherelectroniccomputersystem well known 
to those skilled in the art and utilized in financial institutions for the maintaining of electronic information 
pertaining to checking, savings, certificates of deposit, loan accounts, and tiie like. Electronic information 
is processed to identify and extract pre-selected data therefrom, such as mini trial balances for checking 
accounts, savings accounts, certificates of deposit, loan accounts, and discount loan accounts, simple 
interest loan accounts, and any and all other special service accounts of the financial institution for each 
of its customers. The information is electi-onically formatted such as by use of a "WINDOWS" type 
computer operating system including menu selections for customers, options, verify files, enable auto 
e-mail, generate e-mail, broadcast, help and exit. 

A customer setup configuration is generated tiirough sorting of the data field in the computer for 
each customer in at least one of the following fields sorted by file within the computer: account number; 




reference number; account name; account type; balance for designated accounts; transactions for 
designated accounts; non-sufficient funds designation; and day or date of report transmission. 
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DESCRIPTION OF THE ILLUSTRATIONS 

Fig. 1 is a printout of a sample or representative e-statement illustrating the preferred layout and 
configuration of the report generated in accordance with the present invention. 

Fig. 2 is a view of the main menu for generating the e-mail report of the preferred embodiment of 
the invention in WINDOWS format as it would appear on a personal computer CRT or screen. 

Fig. 3, similar to the illustration of Fig. 2, is an illustration of the customer's selection, 39, from the main 

menu. 

Fig. 4, is an illustration of the view of the customer set-up generated by selection at the add/edit button 

56. 

Fig. 5 is a view similar to that of Fig. 4 showing the customer account set up configuration which will 
appear by activating the accounts button 68 shown in Fig. 4. 

Fig. 6 is a view similar to the previous figures illustrating a sub-menu option of "change report path" 
and "change loan data path" by clicking onto the options field 40 illustrated in Fig. 2. 

Fig. 7 is a view similar to the other figures of the sub-menu option for "change system information" 
resulting from scrolling at 107 in the sub-menu option illustrated in Fig. 6. 

Fig. 8 is a view similar to the previous views of the sub-menu option of "Edit Auto E-Mail Settings" by 
scrolling at 107 in the sub-menu illustrated in Fig. 6. 

Fig. 9 is yet another sub-menu option which may be position by again scrolling at 1 07 on the sub-menu 
profile of Fig, 6. 

Fig. 10 is a view of yet another sub-menu option of "Edit Transaction Codes" which may be selected 
by again scrolling at 107. 

Fig. 11 is an illustration of the selection on the main menu of "enable auto e-mail" and "disable auto 
e-mail", field 42 as illustrated in Fig. 2. 



Fig. 1 2 is yet another illustration of another main menu selection in the "broadcasf field 44 of Fig. 2. 
Fig. 13 illustrates the method of the generation of the e-statement in logic and step format. 
Fig. 14 is a view similar to Fig. 13 illustrating the sub-program of "make statements". 
Fig. 15 is a view similar to Figs. 13and 14showing another sub-program pertaining to reading of the 
loans files. 

Fig. 16 is a view similar to Figs. 13 through 15 showing the logic and step path for the reading of 
deposit trial balances files. 

Fig. 17 is yet another logic/step view similar to Figs. 13 through 16 of the sub-program of reading 
transactions and NSF (non-sufficient funds) files. 

Figs. 18A through 18D together constitute an illustration of a representative printout of a detailed 
statement generated in accordance with the present invention, and as built from data input as illustrated in 
Figs. 2 through 12 in accordance with the description in the specification relating thereto. 
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DESCRIPTION OF THE PREFERRED EMBODIMENTS 



Now with reference to Fig. 1 , there is shown a sample of an e-statement preferred format 1 which is 
transmitted electronically from the financial source, through a computer via conventional e-mail Internet 
services. 



tangible format. As shown, the e-statement 1 contains a first line 2 containing the title and the source of the 
statement and any advertising or promotional or legal notice requirements, such as "Member FDIC". A date 
line 3 is provided for specifying the statement generation date and time of generation. As shown, the 
statement 1 has a statement generation field 3 specifying that it is generated "as of close of business Monday 

1£ Oct. 1 6, 2000". A salutation/description line 4 brings the attention of the reader to the subject matter of the 

5 e-statement 1. 

in Fields 5, 6 and 7 are clustered on one line to identify the type of account, and the digitized account 

g1 number 6, which may have one or more sub-fields in Ved or other disguising configuration, for security 
purposes. Field 7, as shown, describes the account as "Household Accounf . 

lij Below the field lines 5, 6 and 7 are found the Available Balance field 8 and the Exact Balance field 9 

5 as of the date of the generation of the e-statement 1 , reflected in field 3. 

A field 1 0 is identified as "Last Deposif , giving the amount field 1 1 in numbers, and an "as of or "on" 
field 12 for identifying the date of the last deposit 10 which may or may not, be the same date as the 
generation date 3 of the e-statement 1. 

20 Field 13 specifies the transactions for the account identified in field 6 by date 14, serial or transaction 

number 15, amount 16 and transaction source and type 17. As shown, under the date field 14, three 
transactions, 1 8, 1 9 and 20 are shown for Oct 1 6, 2000 with each being identified by a separate serial number 
1 5. Each of the amounts 1 6 for the transactions 1 8, 1 9 and 20 are identified and described in the transaction 



5 



The statement 1 may appear upon a computer screen, or the like, and/or may be printed out in any 
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identification field 1 7, such as a check, ACH, debit or a VISA banking creditor debit card, well known to those 
skilled in the art. 

The e-statement 1 also has a sinnilar information in fields for another account 22 which is identified in 
field 1 as a "savings accounf and further identified in description field 23 as a "Household Savings Accounf . 
An available balance field 24 similar to that in field 8 is shown for the savings account 21 in a specific monetary 
amount at field 25. A last deposit field 26 indicates, as shown, an amount of $2,000 in field 27 deposited to 
the account on Oct. 13, 2000 as shown in field 28. 

Again, particular transactions for the account are shown in field 26 with the account being respecified 
in field 27. The transactions are identified along field line 29 by date, field 30, serial number, field 31 , amount 
field 32 and transaction source and type, field 33. The date is provided in field 34 with the serial number 
identification field 35 and the specified amount of the transaction in the amount field 36. In field 37, the 
transaction is identified as a "withdrawal", the amount of $40.00, field 36. 

The e-statement 1 may be provided in a number of formats, with figure 1 being only representative 
of an arrangement of the accumulation of the financial data in the statement format 1 . 

The operation of the e-statement method and program will now be described. Figures 2 through 12 
illustrate various computer generated video screen or CRT displays of various menu selections incorporated 
within a preferred program for the e-statement process. As shown, and as previously described, the program 
Is preferably generated through the computer by means of a WINDOWS® computer operating system which 
is well known and generally publically available in numerous versions. 

With first reference to Fig. 2, a main menu 38 is displayed. The main menu has sub-menus 
identified as customers 39, options 40, verify files 41 , enable auto e-mail 42, generate e-mail 43, broadcast 
44 and general help fields or sub-menus 45 and exit field 46. 
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The customer's menu or field 39 is more particularized in Fig. 3 and discussed tiereafter in detail. 
In this customer's field 39, a customer's name, e-mail address and account information are entered or 
changed, from time to time. 

The main menu 38 also contains an option field 40 for the purpose of changing certain program 
options such as the directory path to reports, defaultfonts and graphics for statements, auto e-mail settings, 
and to define core processor transaction codes, and the like. 

The verify files field 41 assures verification that all files which are needed to generate a current 
days e-statements have been downloaded from the financial source core computer processor. 

The enable auto e-mail field 42 is used to tum on or off any program feature monitoring the 
progress of the daily report downloads from the financial organization's core computer processor. 
Additionally, this field 42 generates e-statements as soon as all required reports have been received and 
processed just prior to generation of the e-statement configuration to the customer. 

The generate e-mail field 43 Is utilized to generate a cun'ent day's, week's or months e-statements 
which may be prepared and sent on any incremental time basis. This field 43 is a manual request field. 
The program itself verifies to confirm that all required report files are available. However, if some required 
reports are not available or are incomplete, the program allows the user the option to continue or abort the 
request through activation of the generate e-mail field 43 as shown and described in more detail in Fig. 9 
and discussion relating thereto. 

The broadcast field 44 is utilized to send an e-mail message to all or a selected group of customers 
receiving e-statements to announce changes, delays, modifications, or any other material infomiation which 
is desired to be generated and transmitted to a select number of customers. 
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The help menu selection field 45 is conventional in nature and is provided for purposes of 
immediate computer program operating assistance. 

Finally, the exit program or field 46 may be utilized for click-on to return to the original WINDOWS® 
desktop configuration after termination of entry into the program. 

Now with particular reference to Fig. 3, the customer's sub-program or field 39 in the main menu 
38 will now be described. As shown in Fig. 3, the customer's field 39 is shown in spreadsheet 
configurafion. Fields 50 through 54 are entered in negative/zero configuration where the negative is 
reflective of a "true" state and a "0" is indicative of a false state, as further described below. Sub-fields 47 
through 55 are displayed across the spreadsheet in a horizontal configurafion. The "Id" field permits entry 
of a unique number or code correlated to a single customer Within the customer name field 48 are listed 
the individual customer names, by individual or business. The e-mail address field is horizontally displayed 
adjacent the customer name field 48 which is followed by fields 50-54 for a specific service information. 
For example, "CHRG" field 50 is a field indicating whether or not the customer is to be charged for the 
service of providing the e-statement A negative number in this field 50 would indicate that the customer 
is to be charged for the e-mail statement service. The "CONF" field 51 is utilized to verify that the customer 
has returned the confirmation of the e-mail address. The "SUSP" field 52 is utilized to indicate possible 
temporary or permanent suspension of the service for this particular customer. The "No Ad" field 53 is 
utilized to indicate whether or not electronic advertising is to accompany the e-statement with transmission 
to this particular customer. The "Rate" field 54 is utilized to indicate the transmission of various interest 
rates being paid to customers on deposit accounts or charged to customer on loan accounts by the bank. 

The "Add/Edif button 56 is a click field which will allow the program user to add a new customer, 
to delete a customer, or change any of the information about the customer in any of the fields 47 through 
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55. Selecting this button 56 with a customer's information highlighted will display that customer's 
information for editing purposes. Selecting this button without a customer's information highlighted will 
display the first customer's information for editing purposes, or , alternatively, the last customer's 
information for such purposes, as described below. The "Close" button 57 will, of course, return the 
5 program to the main menu display, as in Fig. 2. 

The Add/Edit button 56 window display is particularized in Fig 4. Fields 47 through 54 are 
displayed vertically and correspond to the horizontal configuration for such fields in Fig. 3. The address 
name field 48 may be filled in by a click-on and type in of the data in field 48A. Lil<ewise, the e-mail 
address field 49 may be clicked on to insert such information in field 49A. As indicated, charge and 
M confimied fields 50 and 51 are positively indicated by click-on at fields 58 and 59. Fields 60, 61 and 62 
4 likewise are that they are click-checked or the field left blank, as the case requires. The sort name field 
2 63 is filled in at corresponding field 64 by use of first, last or code names, as required. The Add button 65 
'j^ is conventional and clears all the fields and sets them to their default value thus allowing the entry of a new 
m customer's infonnation, or update of such infonnation. Likewise, the delete button 66 deletes the displayed 
fi customerfrom the field. When the delete button 66 is utilized, no additional e-statement will be generated 
for that particular customer. The update button 67 is utilized to update the customer's information with the 
contents displayed on the screen, Fig. 3, Fig. 4, or adds a new customer to the database after the 
information has been entered. The Account button 68 allows the program user to add or edit account 
information forthe customer currently being displayed. The Close button 69 closes the window display Fig. 
20 4 to retum to the display format of Fig , 3. 

Now with reference to Fig. 5, there is shown the statement account display which allows the 
program user to add or edit account information for the customer curently being displayed in particular 



fields. The Accountfield 70 is entered in space 71 in alplia numeric formatfrom tlie financial systems main 
computer processing unit. This number is assigned at the time the account is opened, such as a purchase 
of a certificate of deposit, or completion of a loan transaction. A limited number of digits for the account 
number field 71 are permitted to be displayed on the e-statement or account attachments as illustrated in 
Fig. 1, for security purposes. The reference number field 72 is entered in space 73 from the financial 
organization's main computer and this number may, or may not, be the same as the account number 71 , 
depending upon the particular operations of the bank"s central computer processing system. However, 
the number in the field 73 is never displayed or printed on the e-mail statements or account statement 
attachment due to a computer block for printout of this particular number, also for security purposes. 

The account name field 74 is filled in at space 75 as it will appear on the customer's e-statement, 
as in Fig. 1 . This can be any name which is meaningful to the customer. For security reasons it should 
not be the customer's actual account name and preferably will be, as reflected in the e-statement of Fig . 1 , 
identified as "Household Accounf or "Regular Checking", or the like. The customerwill be able to identify 
the respective accounts by the last four digits of the account number, as printed, and not particularly with 
reference to the specific name in the field 75. The account type field 76 is entered at 77 by scrolling on 
button 78 for one of a number of account types reported on the program, such as checking, savings, 
certificate of deposit, commercial loan, consumer loan, line of credit, revolving account, or the like. 

The reports balance field 79 is checked in the adjacent area if the balance of the account is to be 
reported each day, week, month, or the like, along with certain other information specific to each account 
type. 

The scroll down button 78 may be clicked on to select one of a number of account type 76 in field 
77, such as checking accounts, savings accounts, loans, certificates of deposits, and the like. 
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If the report balance field 79 is cliecked in the appropriate location, supplemental information for 
the various types of accounts as indicated in the field 77 will be generated and included within the e- 
statement. For example, if checking accounts is scrolled into the field 77 by click-on to the arrow button 
78, current balance, available balance, date of last deposit, amount of last deposit, posted transactions and 
NSF (None Sufficient Funds) Items will be generated. If "Loans' is scrolled into the field 77, cun^ent 
balance, interest rate, payment amount, last payment due, next due date, maturity date, payoff balance, 
interest year-to-year and collateral description information will also be generated. If savings accounts is 
scrolled into the field 77, available balance, date last deposit, amount of last deposit and posted 
transactions will be generated into the e-statement automatically. If certificates of deposit are entered into 
the field 77, current balance, next payment date and accrued Interest information will be generated. 

If the report transactions field 80 is checked, all transactions posted to the account will be listed 
in the e-statement along with other information, as described above. 

If the report NSF field 81 is checked, any debit, such as a check, orthe like, presented for payment 
when the account does not have sufficient funds to pay the debit will be reported, so that the customer may 
make provision for supplemental or immediate deposits, or the like or transfer of other funds into the 
account. NSF Items appear before any other account information on the e-statements as an alert courtesy 
to the customer. This option is, of course, valid for only checking accounts or accounts similar to 
conventional checking accounts. 

The attached statement field 82 is checked if it is desired for any statement produced for the 
account by the bank's core processing computer system to be added to the e-statement as an attachment. 
Integrated statements, i.e., those with more than one account on a single statement, may be attached only 
once, if desired. The extract ASCII field 83 is checked if it is desired to generate an ASCII text file each 

-17- 



day that there are transactions for an account and attached to that day's e-statement. This file can be 
imported into many different accounting programs for account reconciliation operations, as desired. 

The extract Qwicken™ field 84 is checked if a file in Qwicken™ format is to be created each day 
there are transactions for an account and attached to that day's e-statement for transmission to the 
customer. This file can be imported into Qwicken™ for account reconciliation. The report on given days, 
such as l\/londay through Friday's fields 85 through 89 are checked for generation of e-statement for that 
particular day. For example, the customer may only want certificate of deposit or loan infomiation on a 
weekly basis since these accounts customarily have limited transactions, whereas checking accounts may 
have transactions on them several times each day. In such case, a report may be generated for each day 
of the week by checking in the appropriate fields 85 through 89. Alternatively, field 90 may be checked if 
a report is to be generated only on a monthly basis and field 91 is completed to indicate on the day of such 
month that the e-statement is to be generated and transmitted to the customer. 

Field 98 is the last Statemenf field and appears at the upper right hand comer of the window. 
This field is the date of the last statement generated for the account and is utilized for information purposes 
only. Add, delete, update and previous and next buttons 92 through 96 are provided for respective adding, 
deleting, updating, or moving to previous and next displays, in conventional format. Likewise, the Close 
button 97 is provided to close the window and return to the previous format. 

Fig. 6 represents the visual configuration of the program appearing on the CRT or other screen 
from the main menu selection of options 40. Fig. 6 is illustrated with the change report path and change 
loan data path submenu options preparing in the window. These options allow the program user to 
designate the full path name to the directory where the computer download financial report files ft'om the 
core computer are downloaded at the end of each day, the like. As shown on Fig. 6, the correct report 
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download directory may be selected by either clicking on to a location field 1 06 or by entiy of the file name 
99 in field 1 00 or by scrolling at 1 07 for designation in the field 1 04 of the files of type 1 03 and then clicking 
to the open button 1 01 . The selection may be cancelled by clicking at 1 02 prior to opening the file at 1 01 . 
Opening the file 1 01 will change the path to the files in the windows registry. The report path and the loan 
data path typically will be identical. 

As shown in Fig. 7, anotiier submenu option is the "change system information' option. This 
submenu option permits the program user to change some of the program options, as provided. The 
system name field 108 will pemiitentry atlocation 109 of the brand name used forthetitie of the statement, 
such as "E-Statemenf . Other service mark tities may be utilized as desired. The name which is entered 
and placed in the field 109 will be used on all customer e-mail that is generated. 

The bank name field 110 identifies tiie supplier of the service at 111 and is entered in the 
e-statement in the "from" field (see Fig. 1). The statement font size 1 1 2 is entered in space 1 1 3 which will 
be the font size used in the account statements created as attachments. 

The statement graphic field 1 1 4 is inserted at 1 1 5 if a valid graphic file name is to be entered and 
the graphic will be added to the upper left hand comer of the statement attachments, to include a logo, or 
the like in the e-statement configuration transmitted to the customer. The brouse button 1 16 is used to 
select reference to a graphic file, which may be created as needed. The save button 117 may be used to 
save the cun-ently displayed program settings and close the window to return to the main menu. Likewise, 
the close button 118 will close the window and return to the main menu witiiout saving any changes. 

As shown in Fig. 8, another submenu option is the "Edit Auto E-Mail Settings". This submenu 
option will allow tiie program user to change ttie time to begin the e-statement generation each day, and 
a number of minutes between attempts to automatically generate e-statement through the computers and 
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the internet to receipt by the customer, if all reports needed are not available at the time of initial desired 
generation. 

The "begin e-mail" function 120 time is entered in space 121 by scrolling up or down on buttons 
122, 123. This time is the time that the computer is instructed to begin trying to generate and send the 
day's e-statement. The minutes between attempts field 124 is selected and entered at 125 by scroll up or 
down at buttons 1 26 and 1 27 to reflect the time in between attempts to try to generate such e-statement 
because downloads from a core data processing system may take several minutes or even hours. If all 
of the reports are not completely downloaded, continual repetitious checks for the reports may not be 
successful. Therefore, by increasing the time between checks, a computer processing usage can be 
limited and e-statement may be generated in a reasonable time after the last report is received. 

Save and cancel button 128 and 129 are utilized to either save the cun'ently displayed program 
setting and close the window and return to the main menu or to close the window and return to the main 
menu without saving such information. 

The program contemplates and enable/disable submenu option, which is used only during testing. 
Disabling users will check the "Suspend" option foreach e-statement customer except the customer whose 
customer ID is a specific number, such as "10". This will allow the program user to test new program 
settings, while sending e-statements to only one customer, such as a staff member of the financial 
organization. Selecting "enable" will return all customer's to their previous suspended status. 

The next submenu option is illustrated in Fig. 9 and provides the set up and screen profile for the 
generation of the selected e-statement. This submenu option allows the user to generate the selected 
portions of the daily e-statements generated by the financial organization main computer as well as to 
attach a personal message. This submenu may be used to send information of a special nature that may 
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not have been available at the time that the e-statements were generated on a daily, weekly or other basis. 
Fields 130 through 135 may be checked by appropriate click for balance information, transactions, loan 
information, statementattachments, CSV attachments or Qwicken™ attachments, Field 136 may be used 
for personal messages. After completion of this option, the continue button is click at 37 or the operation 
may be cancelled by clicking at 138. 

Fig . 1 0 illustrates another submenu option generally referred to as 'edit tran codes". This submenu 
allows the operator to provide descriptions used in the e-statement for the different type of transactions 
posted to deposit and/or loan accounts. A transaction code field 139 is typed in in area 140 and 
corresponds to a pre-determined code in the computer for a given transaction type and is assigned by the 
main data processor. A description field 140 is used for insertion of an identification if the title of the 
transaction code, such as "new account opening deposif at area 1 41 . A debit field 1 42 may be checked 
at location 1 43 to indicate that the transaction code is for a debit transaction, such as a check or an ACH 
debit for insurance, car payment or the like. The add button 144 clears the content of all the fields and 
resets them to theirdefaultvalue enabling the program userto enter a new transaction code, when desired. 
Likewise, the delete button 1 45 will delete the information forthe currently displayed transaction code. The 
refresh button 1 46 is used to realign all the transaction codes in numerical order. This button may be used 
after a new transaction code has been entered to get it in the proper numeric sequence for viewing. The 
update code 1 47 is used to update information with the contents displayed on the screen or may be used 
to add a new transaction code to the database after the transaction code's information has been entered. 

The close buttoni 48 will close the window and return to the previous screen. Arrow keys 1 49 and 
150 will function as "next" and "previous" buttons for displaying or scrolling from one transaction code to 
the next as reflected in field 151 . 
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Now returning to referred Fig . 2, tlie verify files field 41 is used to verify that all necessary files are 
available to produce the day's e-statements. Each of these files is given a specific code and they're 
contained within the main or core computer system. Typically, and preferably, these files will include the 
following: 

1 . Daily checking account mini-trial balance. 

2. Daily savings account mini-trial balance. 

3. Daily certificate of deposit account mini-trial balance. 

4. Daily loan account mini-thai balance. 

5. Daily discount loan trial balance. 

6. Daily simple interest loan trial balance. 

7. Daily customer's without account trial balance. 

8. Daily posting journal containing all posted transactions for all account types in 
account number order. 

9. Daily posting joumal containing posted transactions for all account types in 
amount order. 

10. Daily file containing all statements printed the previous. 

11. A laser notice file. 

12. The daily NSF checks notices in officer order (including copy). 

If all the files are not present in the downloaded director, a message to that affect will be displayed 
on the screen. If they are not, a message showing each missing file is displayed as it is check. Several 
of the files listed above are not used for information but the presence of the file indicates completion of 
certain downloading steps. 
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Fig, 1 1 is a main menu selection display for enablement and disablement of automatic e-mail 
generation. This function eliminates a need for a program user to remember to generate the e-statement 
each day at a certain time. When the program is running and auto e-mail is enable, the program monitors 
the time of day. When the selected time is reached, such as reflected in the next schedule field 152 
reflected in area 153, it checks to see if all reports needed have been downloaded. If they have, the 
program generates the daily e-statements and waits another 24 hours, or other time designed period, 
before repeating the operation. If not, the program will repeat checking every few minutes or other time 
increments until all the files have been downloaded. During the waiting phase, the display is as shown in 
Fig. 11 . The last complete field 1 50 shows a date and time in the area 1 51 for the last completed cycle. 
The next schedule field 1 52 is completed in area 153 to show beginning of the next cycle forthe generation 
of the e-statements. The last attempt field 154 will automatically reflect in area 155 a "complete" or 
"waiting" indicator. The missing files area 156 will automatically reflect in location 157 the number or 
identification of files that are missing and are required forthe complete generation of the e-mail statement. 
Finally, current time in field 158 is reflected in area 159. 

Fig . 1 2 reflects the view on the screen of the main menu selection for "broadcast". The broadcast 
field is identified as "send to" at 1 60 and a list of selected classification of users, such as "all paying users" 
may be reflected and selected in area 161 by scrolling on 162. The subject of the broadcast is identified 
at field 163 in area 164, such as "monthly charges". A message describing the subject is reflected in the 
field 1 64 may be manually inserted in a message are 1 65 and sent to the selected grouping of customers 
designated in 161 by clicking on the send 166. Altematively, the message and the broadcast maybe 
cancelled by clicking at 167 which will return the user to the main menu. 
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The software preferably utilized to implement the present invention may be any one of a 
comparatively low level machine code, such as visual basic. The logic and sub-routines utilized to fomi 
the e-statement method disclosed in Figs. 1 through 14 is set forth below: 
frm About - 1 
Option Explicit 
' Reg Key Security Options... 
Const KEY_ALL_ACCESS = &H2003F 

'Reg Key ROOT Types... 

Const HKEY_LOCAL_MACHINE = &H80000002 

Const ERROR_SUCCESS = 0 

Const REG_SZ = 1 ' Unicode nul terminated string 

Const REG_DWORD = 4 ' 32-bit number 

Const gREGKEYSYSINFOLOC = "SOFTWARE\Microsoft\Shared Tools Location" 
Const gREGVALSYSINFOLOC = "MSINFO" 

Const gREGKEYSYSINFO = "SOFTWARBMIcrosoft\Shared ToolsVMSINFO" 
Const gREGVALSYSINFO = "PATH" 

Private Declare Function RegOpenKeyEx Lib "advapi32" Alias "RegOpenKeyExA" (ByVal hKe 
y As Long, ByVal IpSubKey As String, ByVal ulOptlons As Long, ByVal samDesired As Lon 
g, ByRef phkResult As Long) As Long 

Private Declare Function RegQueryValueEx Lib "advapi32" Alias "RegQueryValueExA" (ByV 
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al hKey As Long, ByVal IpValueName As String, ByVal IpReserved As Long, ByRef IpType 

As Long, ByVal IpData As String, ByRef IpcbData As Long) As Long 

Private Declare Function RegCloseKey Lib "advapi32" (ByVal hKey As Long) As Long 

Private Sub Form_Load() 
Me.Caption = "About" & " " & SystennName 

IblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision 
IblTitle.Caption = App.Title 
End Sub 

Private Sub cmdSyslnfo_CllckO 

Call StartSyslnfo 
End Sub 

Private Sub cmdOK_ClickO 

Unload Me 
End Sub 

Public Sub StartSyslnfoO 
On En-or GoTo SyslnfoErr 

Dim rc As Long 
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Dim SyslnfoPath As String 
' Try To Get System Info Program Path\Name From Registry... 

If GetKeyValue(HKEY_LOCAL_l\/IACHINE, gREGKEYSYSINFO, gREGVALSYSINFO, SyslnfoPath) T 
5 hen 

' Try To Get System Info Program Path Only From Registry.,. 

Elself GetKeyValue(HKEY_LOCAL_MACHINE, gREGKEYSYSINFOLOC, gREGVALSYSINFOLOC, Sysl 
nfoPath) Then 

' Validate Existence Of Known 32 Bit File Version 
10 If {Dir(SyslnfoPath & "\MSINF032.EXE") <> "") Then 

J SyslnfoPath = SyslnfoPath & "\MSINF032.EXE" 

J, ' Error - File Can Not Be Found- 

Else 

l|] GoTo SyslnfoErr 

i End If 

' Error - Registry Entry Can Not Be Found... 

Else 
GoTo SyslnfoErr 
20 End If 
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frmAbout-2 

Call Shell(SyslnfoPath, vbNormalFocus) 

Exit Sub 
SysinfoErr: 

MsgBox "System Information Is Unavailable At This Time", vbOKOnly 
End Sub 

Public Function GetKeyValue{KeyRoot As Long, KeyName As String, SubKeyRef As String, 
ByRef KeyVal As String) As Boolean 

Dim i As Long ' Loop Counter 

Dim rc As Long ' Return Code 

Dim hKey As Long ' Handle To An Open Regis 

try Key 

Dim hDepth As Long 

Dim KeyValType As Long ' Data Type Of A Registry 



Key 



Dim tmpVal As String 



Tempory Storage For A R 



egistry Key Value 



Dim KeyValSize As Long 



'Size Of Registry Key Va 



riable 
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' Open RegKey Under KeyRoot{HKEY_LOCAL_MACHINE...} 



rc = RegOpenKeyEx(KeyRoot, KeyName, 0, KEY_ALL_ACCESS, hKey) ' Open Registry Key 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Error... 

tmpVal = String$(1 024, 0) ' Allocate Variable Space 

KeyValSize = 1 024 ' Mark Variable Size 



' Retrieve Registry Key Value... 



rc = RegQueryValueEx(hKey, SubKeyRef, 0, KeyValType, tmpVal, KeyValSize) ' Get 
/Create Key Value 

If (rc <> ERROR_SUCCESS) Then GoTo GetKeyError ' Handle Errors 
tmpVal = VBA.Left(tmpVal, lnStr(tmpVal, VBA.Chr(0)) - 1) 



' Determine Key Value Type For Conversion,.. 

f 

Select Case KeyValType ' Search Data Types... 
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Case REG_SZ 
a Type 

KeyVal = tmpVal 
Case REG_DWORD 
y Data Type 

For i = Len{tmpVal) To 1 Step -1 
KeyVal = KeyVal + Hex(Asc(Mii 

ar. 

Next 

KeyVal = Format$("&h" + KeyVal) 
String 
End Select 




' String Registry Key Dat 

' Copy String Value 

' Double Word Registry Ke 

'Convert Each Bit 
)Val,i,1))) 'Build Value Char. By Ch 

' Convert Double Word To 



GetKeyValue = True ' Return Success 

rc = RegCloseKey(hKey) ' Close Registry Key 

Exit Function ' Exit 



GetKeyError: ' Cleanup After An Error Has Occured... 

KeyVal = "" • Set Return Val To Empty 

String 

GetKeyValue = False ' Return Failure 
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rc = RegCloseKey{hKey) ' Close Registry Key 

5 End Function 
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frmAbout- 1 

VERSION 5.00 

Begin VB.Form frmAbout 
BorderStyle = 3 'Fixed Dialog 
Caption = "About eStatement" 
ClientHeight = 3630 
ClientLeft = 45 
ClientTop = 330 
ClientWidth = 5865 
ClipControls = 0 'False 
Icon = (Icon) 
LinkTopic = "Form1" 
MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 3630 
ScaleWidth = 5865 
ShowlnTaskbar = 0 'False 
StartUpPosition = 1 'CenterOwner 
Tag = "About Projectl" 
Begin VBPictureBox piclcon 
AutoSize = -1 True 



BackColor = &HOOCOCOCO& 
ClipControls = 0 "False 
Height = 1260 
Left = 60 

5 Picture = (Bitmap) 

ScaleHeight = 1200 
ScaleMode = 0 'User 
ScaleWidth = 1200 
Tablndex = 2 

10 TabStop = 0 'False 

G Top = 0 

J Width = 1260 

m End 

Begin VB.CommandButton cmdOK 



m 


Cancel 


= -1 True 




Caption 


= "OK" 




Default 


= -1 'True 




Height 


= 345 




Left 


= 4245 


20 


Tablndex 


= 0 




Tag 


= "OK" 




Top 


= 2625 




Width 


= 1467 
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End 

Begin VB.CommandButton cmdSyslnfo 



Caption 


= "&System Info.. 


Height 


= 345 


Left 


= 4260 


Tablndex 


= 1 


Tag 


= "&System Info..." 


Top 


= 3075 


Width 


= 1452 



End 

Begin VB.Label IblDescription 



Caption 


= <..> 


ForeColor 


= &H00O00O0O& 


Height 


= 1170 


Left 


= 1380 


Tablndex 


= 6 


Tag 


= "App Description" 


Top 


= 1125 


Width 


= 4005 



End 

Begin VB.Label IblTltle 
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Alignment = 2 'Center 
5 Caption = "eStatement" 

BeginProperty Font 
Name = "Lucida Calligrapliy" 
Size = 24 
Charset = 0 
Ig Weight = 400 

Underline = 0 'False 
{^j Italic = 0 'False 

W Strikethrough = 0 'False 

EndProperty 
M ForeColor = &H00000000& 
g Height = 480 
Left = 1230 
Tablndex = 5 
Tag = "Application Title" 
20 Top = 240 

Width = 4095 
End 

Begin VB.Line Line1 
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BorderColor = &H00808080& 
BorderStyle = 6 'Inside Solid 
Index = 1 
X1 = 225 
5 X2 = 5657 

Y1 = 2430 
Y2 = 2430 
End 

Begin VB.Line Line1 

10 BorderColor = &HOOFFFFFF& 
g BorderWidth = 2 

^ Index = 0 
% X1 = 240 

=~ X2 = 5657 

11 Y1 = 2445 
2 Y2 = 2445 

End 

Begin VB. Label IblVersion 
Alignment = 2 'Center 
20 Caption = "Version" 

Height = 225 
Left = 1260 
Tablndex = 4 
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Tag = "Version" 

Top = 780 

Width = 4095 
End 

Begin VB.Label IblDlsclalmer 

Caption = <...> 

ForeColor = &H00000000& 

Heigiit = 825 

Left = 255 

Tablndex = 3 

Tag = "Warning:..." 

Top = 2625 

Width = 3870 
End 
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Option Explicit 

Dim Ds As Recordset, SQL As String 
Sub ClearFieldsO 

txtFields(O) = 

txtFields(1) = "" 

txtFields(2) = "" 

txtFields(3) = "" 

Combo1.Llstlndex = 0 

chi<Fields(3) = 1 

chkFields(4) = 1 

chkFields(5) = 1 

chkFields(6) = 1 

chkFlelds(l) = 0 

chkFields(O) = 0 

chkDays(1) = 1 

chkDays(2) = 1 

chkDays(3) = 1 

chkDays(4) = 1 

chkDays{5) = 1 

chkDays{6) = 0 



txtFielcls(4) = "" 
lblLabels(11) = "" 
Screen.MousePointer = 0 

End Sub 

Sub LoadDataQ 

With tbIAccounts 

txtFields(0) = ![UserlD] 

txtFields(l) = ![Account Number] 

txtFields(2) = [[Reference Number] 

txtFields{3) = ![Name] 

If Trim$(![AccountType]) = "Checking" Then ComboHistlndex = 0 
If Trim$(![AccountType]) = "Savings" Then Combol listlndex = 1 
If Trim$(![AccountType]) = "CD" Then Combol Listlndex = 2 
If Trim$(![AccountType]) = "Loan" Then Combol listlndex = 3 
chkFields{3) = Abs{! [Report Balance]) 
chkFields(4) = Abs{! [Report Transactions]) 
chkFields(5) = Abs(l[Report NSF] = True) 
chkFields(6) = Abs(![Attach Statement]) 
chkFields(l) = Abs(! [Extract ASCII]) 
chkFields(O) = Abs(![Extract Qwicken]) 
chkDays(1) = Abs(!Monday) 
chkDays(2) = Abs(!Tuesday) 
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chkDays(3) = Abs(!Wednesclay) 

chkDays(4) = Abs(!Thursclay) 

chkDays(5) = Abs{!Friday) 

chkDays(6) = Abs(![MonthlyOnly]) 

txtFields(4) = ![MonthlyDay]&"" 

lblLabels(1 1) = Format${![Last Report], "mm/dd/yyyy") 



End With 

Screen.MousePointer = 0 
On Error Resume Next 
txtFields{1).SetFocus 
On Error GoToO 
End Sub 



Private Sub cmdAdd_Click() 
ClearFlelds 

txtFields(O) = CurrentID 
txtFlelds(1).SetFocus 
End Sub 



Private Sub cmdDelete_Click{) 



-39- 



frmAccounts - 2 



If MsgBoxC'Deiete this account?", vbYesNo +vbQuestion, "DELETE ACCOUNT") <> vbYes 
5 Then Exit Sub 

tblAccounts.Seel< "=", txtFields(O), txtFields{1) 
If tbIAccounts.NolVlatch = False Then 

tbIAccounts.Delete 

ClearFields 

l^L tbIAccounts.Seek ">=", CurrentID, 0 

~i If tblAccountsl[User ID] = CurrentID Then 

m LoadData 

m End If 

End If 
M End Sub 



Private Sub cmdNExLCIick{) 
On Error Resume Next 
tbIAccounts.MoveNext 

20 If Err > 0 Or tbIAccounts.EOF Then tbIAccounts.Seek ">=", CurrentID, 0: If tbIAccount 
s.EOFThen Exit Sub 

If tblAccounts![User ID] > CurrentID Then tbIAccounts.Seek ">=", CurrentID, 0 
If tblAccounts![User ID] = CurrentID Then 
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ClearFields 

LoadData 
End If 
End Sub 

Private Sub cmdPrevious_Click() 
tblAccounts.MovePrevious 

If Err > 0 Or tbIAccounts.BOF Then tbIAccounts.Seek "<=", CurrentID, 9999999999# 
If tblAccounts![User ID] > CurrentID Then tbIAccounts.Seek "<=", Cun-entID, 999999999 
9# 

If tblAccounts![User ID] = CurrentID Then 

ClearFields 

LoadData 
End If 

End Sub 

Private Sub cmdUpdate_Click() 
tbIAccounts.Seek "=", txtFields(O), txtFields(l) 
If tbIAccounts.NoMatch Then tbIAccounts.AddNew Else tbIAccounts.Edit 
With tbIAccounts 

![UserlD] = txtFields(0) 

![Account Number] = txtFields(l) 
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[[Reference Number] = txtFieIds(2) 
![Name] = txtFielcls(3) 
![AccountType] = Combo1 
![Report Balance] = (chkFields(3) = 1) 
![Report Transactions] = (chkFields(4) = 1) 
![ReportNSF] = (chkFields(5) = 1) 
![Attach Statement] = (chkFields(6) = 1) 
![Extract ASCII] = (chkFields(l) = 1) 
lIExtract Qwicken] = {chkFields{0) = 1) 
[[Monday] = (chkDays(1) = 1) 
[[Tuesday] = (chkDays{2) = 1) 
[[Wednesday] = (chkDays(3) = 1) 
[[Thursday] = {chkDays(4) = 1) 
[[Friday] = {chkDays(5) = 1) 
[[Monthly Only] = (chkDays(6) = 1) 
If [[Monthly Only] Then 
[[Monthly Day] = Val(txtFields(4)) 
Else 

[[Monthly Day] = 0 
End If 
End With 
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tbIAccounts.Update 
5 Screen.MousePointer = 0 
txtFields(1).SetFocus 

End Sub 

% 

Private Sub cmdClose_Click() 
m Screen.MousePointer = vbDefault 
ff^ Unload Me 

End Sub 

□ Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 
CiearFleids 

txtFields(O) = CurrentID 
20 tblAccounts.lndex = "UserAccount" 
tblAccounts.Seel< ">", CurrentID, 0 
If tbIAccounts.NoMatch = False Then 
If tblAccounts![User ID] = CurrentID Then LoadData 
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End If 
End Sub 

5 Private Sub Form_Unload (Cancel As Integer) 
Screen.MousePointer = vbDefault 
End Sub 
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frmAccounts - 1 

VERSION 5.00 
5 Begin VB.Form frmAccounts 

BorderStyle = 3 'Fixed Dialog 
Caption = "Account Setup" 
CllentHeight = 4230 
ClientLeft = 1095 
la ClientTop = 330 
S CllentWidth = 6255 
m Icon = (Icon) 
y; LinkTopic = "Form2" 
f LockControls = -1 True 
MaxButton = 0 'False 
□ MinButton = 0 'False 
ScaleHeight = 4230 
ScaleWidth = 6255 
ShowlnTaskbar = 0 'False 
20 StartUpPosition = 2 'CenterScreen 
Begin VB.TextBox txtFields 
DataField = "Monthly Date" 
DataSource = "datPrimaryRS" 

-45- 



Height = 285 
Index = 4 
Left = 5400 
MaxLength = 10 
Tablndex = 35 
Top = 3300 
Width =315 
End 

Begin VB.CheckBox chkDays 

Alignment = 1 'Right Justify 

Caption = "Report on Monday:" 

DataField = "Monday" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 1 

Left = 3660 

Tablndex = 34 

Top = 1740 

Width = 2055 
End 

Begin VB.CheckBox chkDays 
Alignment = 1 'Right Justify 
Caption = "Report on Tueday:" 



DataField = "Tuesday" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 2 
Left = 3660 
Tablndex = 33 
Top = 2055 
Width = 2055 
End 

Begin VB.Checl^Box chkDays 



Alignment 


= 1 'Right Justify 


Caption 


= "Report on Wednesday:" 


DataField 


= "Wednesday" 


DataSource 


= "datPrimaryRS" 


Height 


= 285 


Index 


= 3 


Left 


3660 


Tablndex 


= 32 


Top 


= 2385 


Width 


= 2055 
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Begin VB.CheckBox chkDays 
5 Alignment = 1 'Right Justify 

Caption = "Report on Tliursday:" 

DataField = "Thursday" 

DataSource = "datPrimaryRS" 

Height = 285 
10=, Index = 4 
3 Left = 3660 
5 Tablndex = 31 
Cl Top = 2700 
:^ Width = 2055 

l| End 

C; Begin VB.CheckBox chkDays 

Caption = "Report Monthly only on the th" 

DataField = "Monthly Only" 

DataSource = "datPrimaryRS" 
20 Height = 285 

index = 6 

Left = 3180 

Tablndex = 30 
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Top = 3315 
Width = 2775 
End 

Begin VB.CheckBox chkDays 

Alignment = 1 'Right Justify 

Caption = "Report on Friday." 

DataField = "Friday" 

DataSource = "datPrlmaryRS" 

Height = 285 

Index = 5 

Left = 3660 

Tablndex = 29 

Top = 3000 

Width = 2055 
End 

Begin VB.TextBox txtFieids 
DataField = "Name" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 3 
Left = 2040 
MaxLength = 50 
Tablndex = 2 



Top = 1080 
Width = 3435 
End 

Begin VB.TextBox txtFields 



DataField 


= "Reference Number" 


DataSource 


= "datPrlmaryRS" 


Height 


285 


Index = 


2 


Left 


2040 


MaxLength 


= 10 


Tablndex 


= 1 


Top = 


720 


Width 


1575 



End 

Begin VB.CheckBox chkFlelds 
DataField = "Extract Ascii" 
DataSource = "datPrimaryRS' 
Height = 285 
Index = 1 
Left = 2040 
Tablndex = 8 
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Top = 3000 
Width = 315 
End 

Begin VB.Checl<Box chkFlelds 

DataFieid = "Extract Qwlcl^en" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 0 

Left = 2040 

Tablndex = 9 

Top = 3315 

Width =315 
End 

Begin VB.ComboBox Combol 
DataFieid = "Account Type" 
DataSource = "datPrimaryRS" 
Height =315 
Left = 2040 
Style = 2 'Dropdown List 
Tablndex = 3 



Top = 1425 
Width = 1575 
End 

Begin VB.PictureBox picButtons 



Appearance 


= 0 'Flat 


BorderStyle 


= 0 'None 


ForeColor 


= &H80000008& 


Height 


■ 360 


Left 


0 


ScaleHeight 


= 360 


ScaleWldth 


= 6345 


Tablndex 


= 18 


Top = 


3780 


Width 


6345 


Begin VB.CommandButton cmdNExt 


Caption 


= "&Next" 


Height 


= 300 


Left 


4200 


Tablndex 


= 28 


Top = 


= 0 


Width 


= 975 



End 

Begin VB.CommandButton cmdPrevious 



Caption 


= "&Previous" 


Height 


= 300 


Left 


= 3180 


Tablndex 


= 27 


Top 


= 0 


Width 


= 975 



End 

Begin VB.CommandButton cmdClose 



Caption 


= "&Close' 


Height 


= 300 


Left 


= 5220 


Tablndex 


= 22 


Top 


= 0 


Width 


= 975 



fj End 

Begin VB.CommandButton cmdUpdate 



Caption 


= "&Update" 


Height 


= 300 


Left 


= 2145 


Tablndex 


= 21 


Top 


= 0 
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Width = 975 
5 End 

Begin VB.CommandButton cmdDelete 



Caption 


= "&Delete" 


Height 


= 300 


Left 


= 1095 


Tablndex 


= 20 


Top 


= 0 


Width 


= 975 



.« End 

Begin VB.CommandButton cmdAdd 
fl Caption = "&Add" 

;ij Height = 300 

Left = 60 
Tablndex = 19 
Top = 0 
20 Width = 975 

End 
End 

Begin VB.CheckBox chl<Fields 
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DataField = "Attach Statement" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 6 
Left = 2040 
Tablndex = 7 
Top = 2700 
Width =315 
End 

Begin VB.CheckBox chkFlelds 

DataField = "Report NSF" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 5 

Left = 2040 

Tablndex = 6 

Top = 2385 

Width =315 
End 

Begin VB.Checl^Box chkFields 
DataField = "Report Transactions" 
DataSource = "datPrimaryRS" 
Height = 285 



Index = 4 

Left = 2040 
Tablndex = 5 

Top = 2055 

Width =315 
End 

Begin VB.CheckBox chkFields 



DataField 


= "Report Balance" 


DataSource 


= "datPrimaryRS" 


Height 


■■ 285 


Index = 


3 


Left 


2040 


Tablndex 


= 4 


Top = 


1740 


Width 


315 



End 

Begin VB.TextBox txtFields 
DataField = "Account Number" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 1 
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Left = 2040 
MaxLength = 10 
Tablndex = 0 
Top = 380 
Width = 1575 
End 

Begin VB.TextBoxtxtFields 

Bacl<Color = &H80000000& 

DataField = "ID" 

DataSource = "datPrimaryRS" 

Height = 285 

Index - 0 

Left = 2040 

Locked = -1 True 

Tablndex = 11 

TabStop = 0 'False 

Top = 60 

Width = 735 
End 

Begin VB.Label IblLabels 



Alignment 


= 1 'Right Justify 


Caption 


= "Last Report:" 


Height 


= 255 


Index 


= 11 


Left 


= 4320 


Tablndex 


= 36 


Top 


= 60 


Width 


= 1815 



End 

ip. Begin VB.Label IblLabels 
c! Caption - "Account Name;" 
3 Height = 255 

ill Index = 10 
Left = 120 
M Tablndex = 26 

□ Top = 1080 

Width =1815 
End 

Begin VB.Label IblLabels 
20 Caption = "Reference Number:" 

Height = 255 
Index = 9 
Left = 120 
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Tablndex = 25 

Top = 720 

Width =1815 
End 

Begin VB.Label iblLabeis 

Caption = "Extract ASCII:" 

Height = 255 

Index = 8 

Left = 120 

Tablndex = 24 

Top = 3000 

Width =1815 
End 

Begin VB.Label IblLabeis 
Caption = "Extract Qwicken:" 

Height = 255 

index = 7 

Left = 120 
Tablndex = 23 

Top = 3315 

Width =1815 
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End 

Begin VBlabel IblLabels 

Caption = "Attach Statement:" 

Height = 255 

Index = 6 

Left = 120 

Tablndex = 17 

Top = 2700 

Width =1815 
End 

Begin VBlabel IblLabels 

Caption = "Report NSR" 

Height = 255 

Index = 5 

Left = 120 

Tablndex = 16 

Top = 2385 

Width =1815 
End 

Begin VBlabel IblLabels 



Caption = "Report Transactions:" 

Height = 255 

Index = 4 

Left = 120 

Tabindex = 15 

Top = 2055 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Report Balance:" 

Height = 255 

Index = 3 

Left = 120 

Tabindex = 14 

Top = 1740 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Account Type:" 

Height = 255 

Index = 2 

Left = 120 

Tabindex = 13 



Top = 1425 
Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Account Number" 

Height = 255 

Index = 1 

Left = 120 

Tablndex = 12 

Top = 380 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Customer ID:" 

Height = 255 

Index = 0 

Left = 120 

Tablndex = 10 

Top = 60 

Width =1815 
End 
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End 
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frmAutotime - 1 

Option Explicit 
5 Private Sub cmdApply_Click() 

SaveSetting App.Title, "Settings", "AutoTime", IblTime 
SaveSetting App.Title, "Settings", "AutoBetween", IblBetween 
cmdCancel_Click 
End Sub 

10 Private Sub cmdCancel_Click() 
^ Unload IVIe 
m End Sub 

s Private Sub Form_Load() 
ij Me.Caption = SystemName & " " & Me.Caption 
^ IblTime = GetSetting(App.Title, "Setdngs", "AutoTime", "08:00 AlVI") 
^ IblBetween = GetSetting(App.Title, "Settings", "AutoBetween", " 1 5") 
End Sub 

20 Private Sub UpDown1_DownClick() 

IblTime = Fomiat$(DateAdd("n", -5, IblTime), "hh:mm AMPM") 
End Sub 
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Private Sub UpDown1_UpClick() 

IblTime = Format$(DateAdd("n", 5, IblTime), "hh:mm AMPM") 

End Sub 

Private Sub UpDown2_DownClick() 
Dim L% 

L% = Val(lblBetween) 
If L% = 5 Then Exit Sub 
IblBetween = L% - 5 
DoEvents 
End Sub 

Private Sub UpDown2_UpClicl<() 
Dim L% 

L% = Val{lblBetween) 
lfL% = 60Then Exit Sub 
IblBetween = L% +5 
DoEvents 
End Sub 
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frmAutotime - 1 



VERSION 5.00 

5 Object= "{86CF1D34-0C5F-11D2-A9FC-0000F8754DA1}#2.0#0"; "MSC0MCT2.0CX' 
Begin VB.Form frmAutotime 
BorderStyle = 3 'Fixed Dialog 
Caption = "Auto Setup" 
ClientHeight = 1770 
Ig ClientLeft = 45 

ClientTop = 330 
I ClientWidth = 4260 
01 LinkTopic = "Fomir 

MaxButton = 0 'False 
ijj MinButton = 0 'False 
d ScaleHelght = 1770 
ScaleWidth = 4260 
ShowlnTaskbar = 0 'False 
StartUpPosition = 1 'CenterOwner 
20 Begin VB.CommandButton cmdCancel 
Caption = "&Cancel" 
Height = 300 
Left = 2340 
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Tablndex = 7 

Top = 1320 

Width = 975 
End 

Begin VB.CommandButton cmdApply 

Caption = "&Save" 

Height = 300 

Left = 900 

Tablndex = 6 

Top = 1320 

Width = 975 
End 

Begin IVISComCtl2.UpDown UpDownl 



Height 


= 285 


Left 


= 3480 


Tablndex 


= 1 


Top 


= 420 


Width 


= 240 


_ExtentX 


= 423 


_ExtentY 


= 503 


_Version 


= 393216 


Enabled 


= -1 True 



End 



Begin MSComCtllUpDown UpDown2 

Height = 285 

Left = 3480 

Tablndex = 4 

Top = 780 

Width = 240 

_ExtentX = 423 

_ExtentY = 503 

.Version = 393216 

Enabled = -1 True 
End 

Begin VB.Label Label4 

Caption = "IVIinutes between Attempts:" 

Height = 255 

Left = 420 

Tablndex = 5 

Top = 780 

Width = 2055 
End 

Begin VB.Label IblBetween 
Alignment = 1 'Right Justify 



frmAutotime - 2 



BackColor = &H8000000E& 
BorderStyle = 1 'Fixed Single 
Caption = "15" 
Height = 285 
Left = 2580 
Tablndex = 3 
Top = 780 
Width = 795 
End 

Begin VB.Label Label2 

Caption = "Begin e-IVIail:" 

Height = 255 

Left = 420 

Tablndex = 2 

Top = 420 

Width = 1335 
End 

Begin VB.Label IblTime 
Alignment = 1 'Right Justify 
Bacl<Color = &H8000000E& 



BorderStyle = 1 'Fixed Single 

Caption = "08:00 AM" 

Height = 285 

Left = 2580 

Tablndex = 0 

Top = 420 

Width = 795 
End 
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Option Explicit 

Private Sub cmdCanceLCIickQ 
Unload Me 

SetfrmBroadcast = Nothing 
End Sub 

Private Sub cmdSend_Click{) 
IfCombol =""Then 

MsgBox "This e-mail has no send to address.", vblnformation, "NOTHING TO DO" 
Exit Sub 
End If 

lfTrim$(Text2) = ""Then 

If MsgBox('This e-mail has no subject. Do you want to send anyway?", vbQuestion + 
vbYesNo, "NO SUBJECT") <> vbYes Then Exit Sub 
End If 

MAFISessionlSignOn 

MAPIMessagesl.SessionID = MAPISessionI .SessionID 
tbIUsers.MoveFirst 
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While NottblUsers.EOF 

If ({Combol listlndex = 2 Or (ComboHistlndex = 1 And tbIUserslCharge = True)) And t 
blUserslSuspend = False) Or (Combol. Listlndex > 1 And tblUsers![Sort Name] = Combol) 
Then 

MAPIMessagesI .Compose 

MAPIMessageslRecipDisplayName = tblUsers![Address Name] 
MAPIMessagesI .Recip Address = tblUsers![e-Mail Address] 
MAPIMessagesI .MsgSubject = Text2 
MAPIMessagesI .MsgNoteText = Text1 
MAPIMessageslSend 
If CombolListlndex > 2 Then GoTo Endit 
End If 

tbIUsers.MoveNext 

Wend 

Endit: 

MAPISessionlSignOff 
cmdCanceLCIick 
End Sub 

Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 

Combol .Addltem "" 

Combol .Addltem "All Users" 
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Combol .Addltem " All Paying Users" 
tbIUsers.lndex = "Sort Name" 
tbIUsers.MoveFirst 
While NottblUsers.EOF 
5 Combol .Addltem tblUsers![Sort Name] 
tbIUsers.MoveNext 
Wend 

Combol listlndex = 0 
End Sub 
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frmBroadcast- 1 
VERSION 5.00 

5 Object = "{20C62CAE-16DA-1 01 B-B9A8-444553540000}#1.1#0"; "MSMAPI32.0CX" 
Begin VB.Form frmBroadcast 
BorderStyle = 3 'Fixed Dialog 
Caption = "e-Mail Broadcast" 
ClientHeight = 4890 
10 CllentLeft = 45 
S CllentTop = 330 
i CllentWidth = 7980 
01 Icon = (Icon) 

LinkTopic = "Forml" 
1§5 LockControls = -1 True 
^ MaxButton = 0 'False 
MInButton = 0 'False 
ScaleHeight = 4890 
ScaleWidth = 7980 
20 ShowlnTaskbar = 0 'False 

StartUpPosition = 2 'CenterScreen 
Begin MSMAPl.MAPIMessages MAPIMessagesI 
Left = 2000 
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Top = 2100 
_ExtentX = 1005 
_ExtentY = 1005 
.Version = 393216 
AdclressEditFieldCount= 1 
AddressModifiable= 0 'False 
AddressResolveUI= 0 'False 
FetchSorted = 0 'False 
FetehUnreadOnly = 0 'False 
End 

Begin MSMAPl.MAPISession MAPISessionI 

Left = 3240 

Top = 2100 

_ExtentX = 1005 

_ExtentY = 1005 

.Version = 393216 

DownloadMail = 0 'False 

LogonUI = -1 'True 

NewSession = -1 'True 

Password = "estatemenf 

UserName = "estatement" 
End 

Begin VB.TextBoxText2 



Height 


= 315 


Left 


= 2040 


Tablndex 


= 1 


Top 


= 600 


Width 


= 5715 



End 

Begin VB.CommandButton cmdCancel 
Cancel - -1 'True 
Caption = "&Cancel" 
Height = 375 

5 Left = 4080 

in Tablndex = 4 

m Tag = "Cancel" 

f Top = 4320 

llj Width = 1095 

Begin VB.CommandButton cmdSend 
Caption = "&Send" 
Height = 375 
20 Left = 2580 

Tablndex = 3 
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frmBroadcast-2 





Tag 


= "OK" 


5 


Top 


= 4320 




Width 


= 1095 




End 






Begin VB.TextBoxTextl 




Height 


= 3015 




Left 


= 180 




Multiline 


= -1 True 




ScrollBars 


= 2 'Vertical 




Tablndex 


= 2 




Top 


= 1080 


M 


Width 


= 7575 



5 

Begin VB.ComboBox Combol 
Height =315 
Left = 2040 
20 Sorted = -1 True 

Style = 2 'Dropdown List 
Tablndex = 0 
Top = 180 
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= 3315 
End 

Begin VB.Label LabeH 
Caption = "Subject" 
5 Height = 255 

Index = 1 
Left = 900 
Tablndex = 6 
Top = 600 
la Width =915 
S End 

jS Begin VB.Label LabeH 
fl Caption = "Send to:" 
f Height = 255 

M Index = 0 
P Left = 900 
Tablndex = 5 
Top = 240 
Width =915 
20 End 
End 
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frmGenerate - 1 

Option Explicit 
5 Dim FilNum%, CancelFlag% 

Sub ReadLoansO 'Read the loan trial balance information 

Dim A$, B$, C$, X%, FilNum%, Accounts, FileNameS, Pages%, CurrentPage%, Oldlndex$ 

Oldlndex$ = tbIAccounts.lndex 

tbIAccounts.lndex = "Account Number" 
10=. tbIBalances.lndex = "PrImaryKey" 
q ForX% = 1To2 

m If X% = 1 Then FlleName$ = "Tbal005.prn" Else FileName$ = "Tbal007.prn" 

If Dir(ReportPath & FlleName) = Then GoTo NextFile 

FilNum% = FreeFile 
ifj Open ReportPath & FlleName For Input As FilNum% 
Q Line Input #FilNum%,A$ 

Line Input #FilNum%,A$ 

LoanDate = Mid$(A$, 47, 2) & "-" & Mid$(A$, 49, 2) & "-" & Mid$(A$, 51, 2) 
LoanDate = Format$(LoanDate, "mm-dd-yyyy") 
20 Pages% = Val{Mid$(A$, 74, 4)) 
CurrentPage% = 0 
LabeM = 

Label2 = "Reading " & FileName$ & 
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ProgressBaM .Value = 0 
ProgressBarl .Visible = True 
DoEvents 

While NotEOF{FilNum%) 
Line Input #FilNum%,A$ 
A$ = RTrim${A$) 
lfA$ = Chr$(12)Then 
CurrentPage% = CurrentPage% + 1 

If CurrentPage% < Pages% Then ProgressBarl .Value = (CurrentPage% / Pages%) 

MOO 

DoEvents 
GoTo NextLine 
End If 

If Len(A$) < 80 Then GoTo NextLine 

Accounts = Trim$(Mid${A$, 2, 1 1)) 

If Val(Account$) > 0 Then 'New Loan 

tblAccounts.Seek "=", Accounts 

If tbIAccounts.NoMatch = True Then GoTo NextLine 

Line Input #FilNum%, B$ 

Line Input #FilNum%, C$ 

WithtblBalances 

Labell = "Adding Loan " & Accounts 
DoEvents 
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.Seek "=", Accounts 

If .NoMatch Then .AddNew Else .Edit 

On Error Resume Next 

![Account] = Accounts 

![Last Update] = LoanDate 

l[Balance] = CCur(Trim$(Mid$(A$, 51, 12))) 

If lsDate(Mid$(A$, 124, 8)) Then l[Date of Last Deposit] = Format${Mid$ 
(A$,124, 8)) 

If lsDate(Mid$(B$, 63, 8)) Then ![Maturity Date] = Format${Mid$(B$, 63, 
8), "mm/dd/yyyy") 

If lsDate(Mid$(C$, 63, 8)) Then ![Next Due Date] = Format$(Mid$(C$, 63, 

8), "mm/dd/yyyy") 

![Net Payoff] = CCur(Trim$(Mid${C$, 50, 12))) 
[[Rate] = CSng(Trim$(Mid${C$, 76, 7))) 
[[Payment] = CCur(Trim$(Mid$(A$, 74, 10))) 
![YTD Interest] = CCur(Trim$(Mld${C$, 85, 1 1))) 
![Misc]=Trim$(Mid$(B$,14, 33)) 

IfLast Deposit] = CCur(Trim$(Mid${B$, 73, 10))) 'Past Due Amount 
If Err = 0 Then .Update Else .CancelUpdate 
On Error GoTo 0 
End With 
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frmGenerate - 2 

End If 
5 NextLine: 
Wend 
NextFile: 
Close FilNum% 
NextX% 

ip,^ ProgressBarl .Visible = False 
y Label2 = "" 
m Label1="" 

2^ tbIAccounts.lndex = Oldlndex$ 

= ^ End Sub 

M Function FNum(A As String) As String 
S Dim L% 

A$ = Trim$(A$) 

L% = Len{A$) 

lfL%>4Then 
20 FNum = String(L% - 4, "x") & Riglit$(A$, 4) 

Else 
FNum = A$ 

End If 
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End Function 

Function Strip(AA$) As String 
5 Do 

lfLeft$(AA$,1) = Chr$(10)Then 

AA$ = Mid$(AA$, 2) 
Else 
Exit Do 
la End If 
?i Loop 
J Do 

m lfRight(AA$,1) = Ciir$(10)Then 
= M$ = Left$(AA$, Len(AA$) - 1) 

M Else 
S Exit Do 
End If 
Loop 

Strip = AA$ 
20 End Function 

Sub MakeStatementsO 

Dim FilNum%, A$, S$(8), Accounts, FilNum2%, X%, Page%, FileNameS, D$, SDate$, TCD$, 0 
IdAccountS, L% 
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Accounts = "": OldAccountS = "": 
Dim TestLineS 

If ReportPath & "Stmt090.PRN" = Then Exit Sub 
Label2 = "Reading account statements..." 
5 tbIAccounts.lndex = "Account Number" 
FIINum% = FreeFile 

Open ReportPath & "STMT090.prn" For Input As FilNum% 
Line Input #FilNum%, A$ ' Header Line 
While NotEOF{FilNum%) 
la. Linelnput#FIINum%,A$ 
5 If A$ <> Chr${1 2) Then GoTo NextLine 
y s 'Read next 8 line into the buffer 
ffl NextSLine: 

Erase S${) 
M ForX% = 1To8 
O Line Input #FilNum%,S$(X%) 

If S$(X%) = Chr${1 2) Then GoTo NextSLine 
Next 

Accounts = Mid$(S${5), 54, 8) 
20 Labell = Accounts 
DoEvents 
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frmGenerate - 3 

Page% = Val(Trim$(Mid$(S$(5), 78, 3))) 
5 SDate = Mid$(S$(6), 73, 8) 

tbIAccounts.Seek "=", Val(Account$) 
If tbIAccounts.NoMatch Then GoTo NextLine 

If tblAccounts![Attach Statement] = False Then GoTo NextLine 
Ip,, LabeH = "Creating statement for " & Accounts 
Cj DoEvents 
i FilNum2% = FreeFile 

m FileNameS = Format$(Val(Account$), "00000000") & Format$(SDate$, "mm-dd-yy") & ". 
HTM" 

M If Accounts <> OldAccountS Then 
^ Open App.Path & T & FileName For Output As FilNum2% 

^ Print #FilNum2%, "<P><IMG SRC= " & GIFName & " <FONT COLOR=#FF0000> <FONT SIZE 

=" & Format$(StatementFont%, "##") & ">" & " " & SystemName & " from "; BankName & " 
<SUB><SMALL>IVIember FDIC</SMALL></SUB></FONT></P>" 

20 Print #FilNum2%, "<p><PRE><FONT SIZE=2><F0NT COLOR=#0000FF>" 

Print #FilNum2%, "========================================================== 



Print #FilNum2%, "<B>NOTE: For your convenience only! This statement does not 
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represent official" 

Print #FilNum2%, " bank records. Your statement will be mailed to you. 
Refer to your" 

Print #FilNum2%, " mailed copy for important disclosures concerning your 
account.</B>" 

Print #FilNum2%, "============================================= 



Print #FilNum2%, "<FONT COLOR=#000000>" 
Else 

Open App.Path & T & FileName For Append As FilNum2% 
Print #FilNum2%, "<P><PRE><FONT SIZE=2><F0NT COLOR=#FF0000>" 
Print #FilNum2%, String(36, 45) & " Page " & Page% & " " & Strlng(36, 45) 
Print #FilNum2%, "<FONT COLOR=#000000>" 
End If 

OldAccount$ = Accounts 

Print #FilNum2%, "* Your account name, address *" & Mid$(Strip(S${4)), 42) 

TestLineS = "* and a portion of your account*" & Mld$(Strip{S$(5)), 42) 
L% = lnStrO"estLine$, Account$): If L% <> OThen Mid$(TestUne$, L%, (Len(Account 
$) - 4)) = String$(Len(Account$) - 4, "x") 
Print #FilNum2%, TestLine$ 

Print #FiINum2%, "* number have been omitted for *" & Mid${Strip(S$(6)), 42) 
Print #FilNum2%, "* your security. *" & Mid${Strip(S$(7)), 42) 
Print #FilNum2%, String(32, " ") & Mid$(Strip(S$(8)), 42) 
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While NotEOF(FilNum%) 
Line Input #FilNum%,A$ 
If A$ = Clir$(1 2) Then 'New Statement 
Print #FilNum2%, "<FONT></P>" 
5 Close FilNum2% 

GoTo NextSLIne 
End If 

TestLine$ = Strlp{A$) 

L% = inStr(TestLine$, Accounts): If L% <> 0 Then Mid$(Tesline$, L%, (Len(Accou 
la not$) - 4)) = String{Len(Account$) - 4, "x") 

f ! If Mid$CTestLjne$, 41 , 7) = "CREDITS" Then Mid$(TestLine$, 5, 4) = "xxxx" 

5 If Mid$(TestLlne$, 29, 1 2) = "ACCOUNT NO. " Then Mld$(TestLine$, 43, 4) = "xxxx 



L% = lnStr{Tesline$, "ACCT.-"): If L% <> 0 Then Mid$CTestLine$, L% + 7, 4) = 
iS "xxxx" 

g If lnStr{A$, "NUMBER OF ITEMS") = 0 Then Print #FilNum2%, TestLine$ 

Wend 

Print #FilNum2%, "<FONT></P>" 
Close FilNum2% 
20 NextLine: 
Wend 
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frmGenerate - 4 

Close FilNum% 
5 Close FilNum2% 

tbIAccounts.lndex = "Account Seq" 
End Sub 

Private Sub cmdCanceLCIickO 
ICL^ CancelFlag% = True 

^1 Screen.MousePointer = 0 

m Close FilNum% 

P Unload Me 

f Set frmGenerate = Nothing 
lil End Sub 

Private Sub Form_Load{) 
'Verify that necessary files are present 
Me.Caption = SystemName & " " & Me.Caption 
20 Dim HoldPath$ 

HoldPath$ = ReportPath 
If ReportSet = "Prior" Then ReportPath = ReportPath & "U\TEST\": ReportDateAdd = -1 
On Error GoTo 0 
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Show 



DoEvents 

Dim A$, AA$(2), SQL$, X%, f%, FileName$, L%, SCount%, FileNum3%, Pdate$, HasAttachmen 
5 t%, TCD$, SLOC& 
Dim ECount& 

tbIAccounts.lndex = "Account Seq" 
tblTrans.lndex = "Reference" 
Ip,, Screen.lVlousePolnter = 1 1 

111 'Build Statements 

ffl If GStatement% = True Then MakeStatements 

l| 

o Labell = "Extracting Account Balances..." 
DoEvents 

'Delete old balance and Update New 
20 If GBalance% <> True Then GoTo NextFunctionI 
SQL = "Delete * from Balances" 
dbs.Execute SQL 

SQL = "Update Accounts Set Sequence = 1" 
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dbs.Execute SQL 

If GLoans% = True Then ReadLoans 

If ReportPath & "MNTB002.PRN" <> "" Then 
5 FilNum% = FreeFlle 
Forf% = 2To4 

FileName$ = "MNTB" & Format$(f%, "000") & ".pm" 
Open ReportPath & FileName For Input As FilNum% 
Do Until EOF(FilNum%) 
la Line Input #FIINum%,A$ 

rj DoEvents: If CancelFlag = True Then Exit Sub 
3 'A$ = Trim$(A$) 
m AA$(1) = Left$(A$,64) 

= , AA${2) = Mid${A$, 68) 

l| ForX% = 1To2 

S A$ = Trim$(Left$(AA$(X),10)) 

lfVal(A$)>OThen 
tblAccounts.Seek"=",A$, 1 
If tbIAccounts.NoMatch = False Then 
20 Labell = "Adding Balance for " & A$ 

DoEvents 
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tbIBalances.AddNew 
5 tblBalances!Account = Val(A$) 

Select Case f% 
Case 2, 3 

tbiBalancesIBalance = CCur{Tiim${Mid$(AA$(X%), 25, 17))) 
If lsDate(Trim$(Right$(AA$(X), 9))) Then tblBalances![Date 
la, of Last Deposit] = Tiim$(Rlght$(AA$(X%), 9)) 

y tblBalances![Last Deposiq = CCurpm$(Mid${AA$(X%), 39, 1 

^ 7))) 

fi Case 4 

= _ tbIBalanceslBalance = CCurfrrim$(Mid${AA$(X%), 25, 1 3))) 

li! If lsDate(Mid$(AA$(X), 47, 8)) Then tblBalances![Date of La 

g st Deposit] = Mid$(AA$(X%), 47, 8) 

If lsDate(Mld$(AA$(X), 38, 8)) Then tblBalances![Maturity D 
ate] = Mid$(AA$(X%), 38, 8) 

tblBalances![Last Deposit] = CCur(Trlm$(Mld${AA${X%), 55, 1 

20 07))) 

Case Else 
End Select 
tbIBalances.Update 
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End If 
End If 
Next 
Loop 

5 Close FilNum% 
Next'f% 
End If 



NextFunctionI: 
IQ, If GTrans <> True Then GoTo NextFunction2 
cS 'Load New Transactions 
m tblAccounts.lndex = "REFERENCE" 
S If ReportPath & "PJNL001 .PRN" <> Then 
f FilNum% = FreeFile 
l| FileName$ = "PJNL001.PRN" 
n Open ReportPath & FileName For Input As FilNum% 

Line Input #FilNum%,A$ 

Line Input #FilNum%,A$ 

Pdate$ = Mid$(A$, 68, 2) & "-" & Mid${A$, 70, 2) & "-" & Mid${A$, 72, 2) 
20 Pdate$ = Fomiat$(Pdate$, "mm-dd-yyyy") 
tbITrans.lndex = "Duplicate" 
Do Until EOF(FilNum%) 
Line Input #FilNum%,A$ 



DoEvents: If CancelFlag = True Then Exit Sub 
If Len(A$) < 100 Then GoTo NextLlne 
AA${1) = Left$(A$,64) 
AA$(2) = Mid$(A$, 71) 
5 ForX% = 1To2 

A$ = Trim$(Lefl$(AA$(X), 9)) & Mid$(AA$(X), 11,2) 
• lfA$ = "116160" Then Stop 
lfVal{A$)> 100000 Then 
tbIAccounts.Seek "=", A$ 
1|I If tbIAccounts.NoMatch = False Then 

q Labell = "Adding Transactlon(s) for " & A$ 

DoEvents 

i tblTrans.Seek "=", Val(A$), Pdate$, Val(Mid$(AA$(X%), 44, 6)) + 0, CCur 

(Trim${Mid$(AA$(X%), 1 9, 1 3))) 
M If tblTrans.NoMatch = True Then 

Fi tbITrans.AddNew 

tblTranslReference = Val(A$) 

tbITranslTC = Mid$(AA$(X), 15, 3) 

tblTranslAmount = CCur(Trim$(Mid$(AA${X%), 19, 13))) 
20 tbITranslSource = Mld${AA$(X%), 34, 4) 

tbITranslSerial = Val(Mid$(AA$(X%), 44, 6)) +0 
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frmGenerate - 6 

tbITranslDate = Pdate$ 
5 tbITrans. Update 

End If 
End If 
End If 
Next 
IQ, NextLlne: 
cl Loop 
m Close FilNum% 
jj tbIAccounts.lndex = "Account Seq" 

tbITrans.lndex = "Reference" 
#1 End If 

'Delete NSF and Add new 
SQL = "Delete *fronfi NSF" 
dbs.Execute SQL 
20 if ReportPath & "CF_026.PRN" <> "" Then 

Dim Acc$, Bal As Currency, B$, SAcc$ 

FilNum% = FreeFile 

FileNameS = "CF_026.PRN" 
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Open ReportPath & FileName For Input As FilNum% 
Do Until EOF(FilNum%) 
Line Input #FilNum%,A$ 
DoEvents: If CancelFlag = True Then Exit Sub 

5 If Left$(A$, 20) = " " Then Acc$ = "": Bal = 0: GoTo NextNSF 

Acc$ = Trim$(Mid$(A$, 5,8)) 
lfAcc$ = ""Then GoTo NextNSF 
If Val{Acc$) = 0 Then GoTo NextNSF 
'lfAcc$ = "124990" Then Stop 
la tbIAccounts.Seek "=", Acc$, 1 
r{ If tbIAccounts.NoMatch = False Then 
;j tbIAccounts.Edit 
yl tbIAccountslSequence = 0 

tbIAccounts.Update 
ij B$ = Mid$(A$,106,15) 

'User Reverinst here 
L% = lnStrRev(B$, "*") 
B$ = Mid$(B$, L% + 1) 
SAcc$ = Acc$ 
20 Bal = CCur{B$) 

Labell = "Adding NSFfor"&Acc$ 
DoEvents 
End If 
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NextNSF: 

If Bal <> 0 And Mid$(A$, 1 15, 1) = "." Then 

tbINSF.AddNew 

tblNSF!Account=SAcc$ 
5 tblNSF!Balance = Bal 

tblNSF!Amount= CCur(Mid$(A$, 106, 12)) 

tbINSFISerial = Val{Mid$(A$, 80, 6)) 

tbINSF.Update 

End If 
10 Loop 
S End If 
;1 Close FilNum% 

= NextFunctlon2: 
l|[ 'Build e-mail 
S DimT$, D$ 

MAPISessionl.SignOn 

MAPIMessagesl.SessionID = MAPISessionl.SessionID 
tbIUsers.MoveFirst 
20 tbIAccounts.lndex = "User Seq" 
tbIBalances.lndex = "PrimaryKey" 
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tblNSF.Index = "Account" 
5 While Not tbIUsers.EOF 

SCount% = 0 

DoEvents: If CancelFlag = True Then Exit Sub 

10 'Check for suspened user" 

If tbIUserslSuspend = True Then GoTo NextUser2 

'ffi 'Build the first part of the email message 

MAPIMessagesI .Compose 
^ MAPIMessagesI .RecipDisplayName = tblUsers![Address Name] 
MAPIMessagesI .RecipAddress = tbIUsers![e-Mail Address] 

MAPIMessagesI .MsgSubject = SystemName & " for " & Format$(Pdate$, "dddd mmm dd, yy 

yy") 

20 

'Has the user confirmed usage? if not send a confirmation 
If tblUsers! Confirmed = False Then 
MAPIMessages1.MsgSubject = "eStatement address confirmation " & Format$(Now, "m 
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m/dd/yyyy") 

T$ = "Dear Customer: " & Chr$(10) & Chr$(10) 

T$ = T$ & "Please confirm receipt of this eStatement Address Confirmation by" & 
Chr$(10) 

5 T$ = T$ & "replying to this e-mail. Click the REPLY button of your" & Chr$(1 0) 

T$ = T$ & "e-mail program and then the SEND button. No other action is" & Chr$ 
(10) 

T$ = T$ & "required. Upon receipt of your confirmation we will begin" & Chr$(1 0 

) 

Ife T$ = T$ & "daily eStatement services." & Chr$(1 0) & Chr$(1 0) 
^ T$ = T$ & "Thank you for your business..." & Chr${1 0) & Chr${1 0) 
W T$ = T$&" The Lamar Bank eStatement Team" 
I J T$ = T$&" eStatement@lamarbanktexas.com" 
GoTo NextUser 

m End If 

'Build Text for email 

T$ = SystemNameS & " from " & BankNameS & " Member FDIC" & Chr$(1 0) 
T$ = T$ & "As of close of business " & Format${Pdate$, "dddd mmm-dd-yyyy") & Chr$( 
20 10) 

tbIAccounts.Seek ">=", tblUsers{0), 0 

If tblAccounts![User ID] <> tblUsersl[ID] Then GoTo NextUser 
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While NottblAccounts.EOF 
If tblAccounts![User ID] <> tblUsers![ID] Then GoTo NextUser 
tbINSF.Seek "=", tblAccounts![Account Number] 
lftblNSF.NoMatch = False Then 

If T$ <> Then T$ = T$ & "=========================================: 

="&Chr$(10) 

T$ = T$ & " NSF NOTICE--NSF NOTICE " & Chr$(10) 

T$ = T$ & "NSF Account " & FNum(tblNSF!Account) & " - " & tbIAccountslNam 
e&Chr$(10) 

T$ = T$&" Balance: "& Format$(tblNSF!Balance, "Currency") & Chr 
${10)&Chr${10) 

T$ = T$ & "NSF Checks:" & Chr$(10) 

T$ = T$&" SERIAL AMOUNT" &Chr$(10) 

T$ = T$&" "&Chr$(10) 

While NottblNSF.EOF 

If tbINSFIAccount <> tblAccounts![Account Number] Then GoTo NextNSF2 
T$ = T$&" "&Format$(tblNSFISeriarOOOOOO ")&Righ 
t$(Space${12) & Format$(tblNSF!Amount, "Currency"), 12) & Chr$(10) 
tbINSF.MoveNext 
Wend 
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End If 
NextNSF2: 
'Check here for report day 

If tblAccounts![Monthly Only] = False And tblAccounts{Weekday(Pdate$) + 10) = F 
alse Then GoTo NextAccountS 

'code to check date for Monthly only here 

tbIBalances.Seek "=", tblAccounts![Account Number] 

If tbIBalances.NoMatch = False And GBalance = True Then 
If T$ <> "" Then T$ = T$ & "========================================: 

====•• &Chr$(10) 

D$ = Dir$(App.Path & T & Format$(tblAccounts![Account Number], "0000000 
0") & "* HTM") 

If D$ <> And GStatement% = True Then 
T$ = T$ & "A Statement for this account is attached today!" & Chr${1 0) 
End If 

Select Case tblAccounts![Account Type] 
Case "Checking" 

T$ = T$&" Checking Account "& FNum(tblAccounts![Account Number 
])&"-"& tbIAccountslName & Chr$(10) 

If tbIBalanceslBalance = -99999999.99 Then 
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T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

T$ = T$ & " Available Balance: " & Format$(tblBalances!Balance 
, "Currency") &Chr${10) 
End If 

If tblBalancesl[Last Deposit] <> 0 Then T$ = T$ & " Last Depo 
sit: " & Format$(tblBalances![Last Deposit], "Currency") & " on " & Format$(tblBal 
ances![Date of Last Deposit], "mm/dd/yyyy") & Chr$(10) 
T$ = T$&Chr${10) 
Case "Savings" 

T$ = T$&" Savings Account " & FNum{tblAccounts!IAccount Numbe 
r]) & " - " & tbIAccountslName & Chr$(1 0) 

If tbIBalanceslBalance = -99999999.99 Then 
T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

T$ = T$ & " Available Balance: " & Format$(tbiBalances!Balance 
, "Currency") &Chr${10) 
End If 

If tblBalances![Last Deposit] <> 0 Then T$ = T$ & " Last Depo 
sit: " & Format$(tblBalances![Last Deposit], "Currency") & " on " & Format$(tblBal 
ances![Date of Last Deposit], "mm/dd/yyyy") & Chr$(10) 
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T$ = T$&Chr$(10) 
Case "CD" 

T$ = T$&" Certificate Number: " &FNum(tblAccounts![AccountNumb 
er]) & " - " & tbIAccountslName & Chr$(10) 

If tbIBalanceslBalance = -99999999.99 Tlien 
T$ = T$ & "There is a full balance hold on this account!" & Chr$(1 

0) 

Else 

T$ = T$&" Available Balance: " & Format$(tblBalances!Balanc 
e, "Currency") &Chr$(10) 
End If 

T$ = T$&" Maturity Date: " & Format$(tblBalances![Maturi 
ty Date], "mm/dd/yyyy") & Chr$(10) 

T$ = T$ & " Next Interest Date: " & Format$(tblBalances![Date of 
Last Deposit], "mm/dd/yyyy") & Chr$(10) 

If tblBalances![Last Deposit] <> 0 Then T$ = T$ & " Accrued Inter 
est: " & Format$(tblBalances![Last Deposit], "Currency") & Chr$(1 0) 

T$ = T$&Chr$(10) 
Case "Loan" 

If Format${LoanDate, "Short Date") <> Format$(Pdate$, "Short Date") T 

hen 
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T$ = T$ & " All Information as of: " & Format$(LoanDate, "Short 
Date")&Chr$(10) 
End If 

T$ = T$ & " Loan Number: " & FNum(tbiAccounts![Account N 
umber]) & " - " & tblAccountslName & Chr$(1 0) 

T$ = T$ & " Current Balance: " & Format$(tblBalances![Balanc 
e], "Currency") &Chr$(10) 

If tblBalances![Last Deposit] > 0 Then T$ = T$ & " Past Due Amoun 
t: " & Format$(tblBalances![Last Deposit], "Currency") & Chr$(1 0) 

T$ = T$&" Interest Rate: " & Format$(tblBalances![R 
ate] / 100, "###.00 %") & Chr${10) 

T$ = T$ & " Payment Amount: " & Format$(tblBalances![Payment], 
"Currency") &Chr$(10) 

T$ = T$ & " Last Payment Date: " & Format$(tblBalances![Date of 
Last Deposit], "Short Date") & Chr$(10) 

T$ = T$ & " Next Due Date: " & Format${tblBalances![Next D 
ue Date], "Short Date") & Chr$(10) 

T$ = T$ & " Maturity Date: " & Format$(tblBalances![Matu 
rity Date], "Short Date") & Chr${10) 

T$ = T$ & " Payoff (call to verify): " & Format$(tblBalances![Net Pa 
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yofi], "Currency") &Chr${10) 

T$ = T$ & " Interest Year-to-date: " & Format${tblBalances![YTD Int 
erest], "Currency") &Chr$(10) 

T$ = T$ & "Collateral Description: " & tblBalances![Misc] & Chr$(10) 
5 T$ = T$&Chr$(10) 

Case Else 
T$ = 
End Select 
End If 
10 'Add Trans 

*{ If GTrans% = True Then 
-J tblTrans.Seek ">=", tbIAccountslIReference Number], 0 

7ji If tbITrans.NoMatch Then GoTo NextAccount 

If tbITranslReference <> tbi Accounts! [Reference Number] Then GoTo NextAccount 
l|j T$ = T$ & "Transactlon(s) for Account " & FNum(tblAccountsl[Account Number]) 

2 &Chr${10) 

T$ = T$&"Date Serial* Amount Transaction 
Source and Type" & Chr$(10) 

T$ = T$&" ~ 

20 "&Chr${10) 

While NottblTrans.EOF 

If tbITranslReference = tblAccounts![Reference Number] Then 
tbITranCodes.Seek "=", tbITranslTC 
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if tbITranCodes.NoMatch Then 
MsgBox "An unknown trancode has been found: " &tblTrans!TC, vblnforma 
tion, "UNKNOWN TRANCODE": TCD$ = "Unknow" 
Else 

TCD$ = tblTranCodes(1) 

If tbITranslSource <> "MICR" Then TCD$ = tbITranslSource & " " & TCD 

$ 

End If 

T$ = T$ & Format$(tblTrans!Date, "mm/dd/yy") & " " & Format$(tblTrans 
ISerial, "000000 ") & Right$(Space${17) & Format$(tblTrans!Amount, "Currency"), 17) 
&Space${8)&TCD$&Chr$(10) 
Else 

GoToLastTran 'End of Trans 
End If 

tbITrans.MoveNext 
Wend 
End If 
LastTran: 

lfT$<> ""ThenT$ = T$&Chr$(10) 

NextAccount2: 
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'If flaged, build CSV File for trans 
5 If GCSV = False Or (GCSV = True And tblAccounts![Extract ASCII] = False) Then 

GoTo NextAccount 

tbITrans.Seek "=", tblAccounts![Account Number] 

If tbITrans.NoMatch Then GoTo NextAccount 

Dim FilNum3%, TranType$ 
10 FilNum3% = FreeFile 

g Open App.Path & T & Format$(tblAccounts![Account Number], "00000000") & ".CS 
^ V" For Output As #FilNum3% 
S While Not tblTrans.EOF 

s If tbITrans! Reference = tblAccounts![Reference Number] Then 

iD tblTranCodes.Seek"=",tblTrans!TC 
i;' If tbITranCodes.NoMatch = False Then 

If tbITranCodeslAction = -1 Then 
Write #FilNum3%, tblAccounts![Account Number], Pdate$, "Debit", tbITr 
ansiSerial, Format${-tblTrans!Amount " II II II II II II II II II II M") 
20 Else 

Write #FilNum3%, tblAccounts![Account Number], Pdate$, "Credit", tbIT 
ranslSerial, Format$(tblTrans!Amount " II II II II II II II II II II .##") 
End If 
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End If 



Else 

Close FilNum3% 
GoTo NextAccount 
5 End If 

tbITrans.MoveNext 
Wend 

Close FilNum3% 
NextAccount: 

10 D$ = Dir$(App.Path & T & Format$(tblAccounts![Account Number], "00000000") & " 
J .CSV") 

j If D$ <> "" And GCSV = True Then 
m HasAttachment = True 
- MAPIMessagesI .Attachmentlndex = SCount% 

llj MAPIMessagesI .AttachmentPathName = App.Path & T & D$ 
^ MAPIMessagesI .AttachmentName = Pdate$ & " Transactions for Account " & FNum(tbl 
Accountsl[Account Number]) & ".CSV" 
SCount% = SCount%+1 
End If 

20 D$ = Dir$(App.Path & T & Format$(tblAccounts![Account Number], "00000000") & " 

*.HTM") 

If D$ <> "" And GStatement% = True Then 
HasAttachment = True 



-107- 




MAPIMessageslAtlachmentlndex = SCount% 
MAPIMessageslAttachmentPathName = App.Path & "\" & D$ 
MAPIMessageslAttachmentName = Fonnat$(Mid${D$, 9, 8), "mm-dd-yyyy") & " Statem 
ent for Account " & FNum{tblAccounts![Account Number]) & ".HTM" 
5 SCount% = SCount% + 1 

End If 

tbIAccounts.Edit 
tblAccountsl[Last Report] = Now 
tbIAccounts.Update 
10 NextAccountS: 

tbIAccounts.MoveNext 
% Wend 'End of account loop 

r= NextUser: 

iP If T$ <> "" Or HasAttachment = True Then 

Label! = "eMailing " & MAPIMessagesI .RecipDisplayName 

DoEvents 

lfT$<>"" Then 
If GMessage <> "" Then T$ = GMessage & Chr$(10) & T$ 
20 MAPIMessagesI .MsgNoteText = Left$(T$, Len(T$) - 1 ) 

Else 
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T$ = GMessage&Chr$(10) 
5 MAPIMessagesI .MsgNoteText = "Statement attached" 

End If 

MAPIMessagesI .Send 

ECount=ECount + 1 

DoEvents 
10 End If 

NextUser2: 
Z T$ = "" 

If; HasAttachment= False 
= tbIUsers.MoveNext 
l|J Wend 'End of User Loop 



~ 'End Of Processing 

Screen.MousePointer = 0 
On Error Resume Next 
20 MAPISessionlSignOff 

If ECount> 1 Then 
tbIHistory.AddNew 
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tblHistory![Generation Date] = Now 

tbIHistorylStatements = ECount 
tblHistory.Update 
tbIOptions.Edit 

tblOptions![Last Generated] = Now 
tbIOptions.Update 
End If 

'Remove reported transactions 
tbIAccounts.MoveFirst 
While NottblAccounts.EOF 

If Format$(tblAccounts!ILast Report], "mm/dd/yyyy") = Format$(Now, "mm/dd/yyyy") T 
hen 

SQL = "Delete * from Transaction where Reference = "' & Trim(tblAccounts![Referen 
ce Number]) &"•" 
dbs.Execute SQL 
End If 

tbIAccounts.MoveNext 
Wend 

ReportPath = HoldPath 
ReportDateAdd = 0 
KillApp.Path&T.HTM" 
KillApp.Path&T.CSV" 
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On Error GoTo 0 
cmdCanceLCiick 
End Sub 
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frmGenerate - 1 
VERSION 5.00 

5 Object = "{831FDD16-0C5C-1 1D2-A9FC-0000F8754DA1}#2.0#0"; "MSCOMCTL.OCX" 
Object = "{20C62CAE-1 5DA-1 01 B-B9A8-444553540000}#1 .1#0"; "MSMAPI32.0CX" 
Begin VB.Form frmGenerate 
BorderStyle = 3 'Fixed Dialog 
Caption = "Generate e-Mail" 
10 GllentHeight = 1650 
fl Clienleft = 45 
J ClienfTop = 330 
m ClientWidth = 4680 
s Icon = (Icon) 
# LinkTopic = "Formi" 
y MaxButton = 0 "False 
MinButton = 0 'False 
ScaleHeight = 1650 
ScaleWidth = 4680 
20 ShowlnTaskbar = 0 'False 

StartUpPosition = 1 'CenterOwner 
Begin MSComctlLlb.ProgressBar ProgressBarl 
Height = 255 
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Left 


300 


Tablndex 


= 3 


Top = 


780 


Visible = 


0 'False 


Width 


4035 


_ExtentX 


= 7117 


_ExtentY 


= 450 


_Version 


= 393216 


Appearance 


= 1 



End 

Begin VB.CommandButton cmdCancel 

Cancel = -1 True 

Caption = "SCancel" 

Height = 300 

Left = 1740 

Tablndex = 1 

Top = 1200 

Width = 1095 
End 

Begin MSMAPl.MAPIMessages MAPIMessagesI 

Left = 3840 

Top = 960 

_ExtentX = 1005 



_ExtentY = 1005 
.Version = 393216 
AddressEditFieldCount= 1 
AddressModifiable= 0 'False 
AddressResolveUI= 0 'False 
FetchSorted = 0 'False 
FetchUnreadOnly = 0 'False 
End 

Begin MSMAPl.MAPISession MAPISessionl 

Left = 3960 

Top = 60 

_ExtentX = 1005 

_ExtentY = 1005 

.Version = 393216 

DownloadMail = 0 'False 

LogonUI = -1 True 

NewSession = -1 True 

Password = "ebalance" 

UserName = "ebalance" 
End 

Begin VB.Label Label2 
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Alignment = 2 'Center 

5 AutoSize = -1 True 

Height = 195 

Left = 2280 

Tablndex = 2 

Top = 60 

Ife Width = 75 

H End 

=p 

Begin VB.Label Label! 

m 

'^l Alignment = 2 'Center 
L AutoSize = -1 True 

ru 

ISJ Height = 195 

Q 

O Left = 2280 

Ci 

Tablndex = 0 
Top = 420 
Width = 75 
20 End 
End 
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Option Explicit 

5 

Private Declare Function GetUserName Lib "acivapi32.dir Alias "GetUserNameA" (ByVal I 
pbuffer As String, nSize As Long) As Long 

Public OK As Boolean 
IQ, Private Sub Form_Loaci() 
Q Dim sBuffer As String 
yi Dim ISize As Long 
3i Me.Caption = SystemName & " Login" 
f ^ sBuffer = Space$(255) 
l^j ISize = Len(sBuffer) 
□ Call GetUserName(sBuffer, ISize) 
If ISize >0 Then 

txtUserName.Text= Left$(sBuffer, ISize) 
Else 

20 txtUserName.Text = vbNullString 
End If 
End Sub 
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Private Sub cmdCanceLCIickO 

OK = False 

Me.Hide 
End Sub 

Private Sub cmdOK_Click() 
ToDo: create test for correct password 
'clieck for correct password 
If txtPassword.Text = "" Then 

OK = True 

Me.Hide 
Else 

MsgBox "Invalid Password, try again!", , "Login" 

txtPassword .SetFocus 

txtPassword.SelStart=0 

txtPassword.SelLength = Len(txtPassword.Text) 
End If 
End Sub 




frmLogin - 1 

VERSION 5.00 
5 Begin VB.Form frmLogin 

BorderStyle = 3 'Fixed Dialog 

Caption = "Login" 

ClientHeight = 1590 

Clientleft = 45 
1£ ClientTop = 330 
5 ClientWidth = 3750 
m Icon = (Icon) 
01 LinkTopic = "Form1" 

MaxButton = 0 'False 
iD MinButton = 0 'False 
f\ ScaleHeight = 1590 

ScaleWldth = 3750 

ShowlnTaskbar = 0 'False 

StartUpPositlon = 2 'CenterScreen 
20 Tag = "Login" 

Begin VB.CommandButton cmdCancel 
Cancel = -1 True 
Caption = "Cancel" 
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Height = 360 
Left = 2100 
Tablndex = 5 
Tag = "Cancel" 
5 Top = 1020 

Width =1140 
End 

Begin VB.CommandButton cmdOK 





Caption 


= "OK" 




Default 


= -1 True 




Height 


= 360 




Left 


= 495 




Tablndex 


= 4 




Tag 


= "OK" 


#! 


Top 


= 1020 




Width 


= 1140 



End 

Begin VB.TextBox txtPassword 
Height = 285 
20 IMEMode = 3 'DISABLE 

Left = 1305 
PasswordChar = "*" 
Tablndex = 1 
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Top = 525 

Width = 2325 
End 

Begin VB.TextBox txtUserName 

5 Height = 285 

Left = 1305 
Tablndex = 3 

Top = 135 

Width = 2325 
la End 

5 Begin VB.Label IblLabels 
m Caption = "&Password:" 

m Height = 248 

f Index = 1 

ll! Left =105 
Tablndex = 0 

Tag = "&Password:" 

Top = 540 

Width = 1080 
20 End 

Begin VB.Label IblLabels 
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Caption = "&UserName:" 
248 
0 

105 
= 2 

"&UserName:" 
150 
1080 
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5 Height 

Index = 



Left 



Tablndex 



Tag = 
S Width 



ih End 

|y 

m End 

nj 

m 

Q 
a 




frmMain - 1 
Option Explicit 

5 

Private Declare Function OSWinHelp% Lib "user32" Alias "WinHelpA" (ByVal hwnd&, ByVal 
HelpFile$, ByVal wCommand%, dwData As Any) 
Sub OpenFilesO 

FilePath = GetSetting(App.Title, "Settings", "FilePath", App.Path) 
la, Set wrkJet = CreateWorkspace("", "admin", "", dbUseJet) 
Cj ' Open Database object from saved Microsoft Jet database 
if j Set dbs = wrkJet.OpenDatabase{FilePath & "\eStatementmdb", False) 

f Set tbIUsers = dbs.OpenRecordset("Users") 
l|1 Set tbIAccounts = dbs.OpenRecordset("Accounts") 
Q Set tbIBalances = dbs.OpenRecordsetf'Balances") 

SettblTrans = dbs.OpenRecordsetfTransaction") 

SettblNSF = dbs.OpenRecordsetfNSF") 

SettblTranCodes = dbs.OpenRecordsetfTran Codes") 
20 Set tbIHistory = dbs.OpenRecordsetfHistory") 

Set tbIOptions = dbs.OpenRecordset("Options") 

tbIOptions.lndex = "Primary" 

tbIOptions.MoveFirst 
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tblHistory.lndex = "Primary" 

tblTranCodes.lndex = "Primary" 
End Sub 

Sub CloseFllesO 
5 On Error Resume Next 

tbIUsers.Close 

tbIAccounts.Close 

tbIBalances.Close 

tbITrans.Close 
la. tbINSF.CIose 
rj tbITranCodes.Close 
yi dbs.Close 
yi On Error GoToO 
= _ End Sub 

B Private Sub Form_Load() 

BackPath: 'Get the path to the reports 
ReportPath = GetSetting(App.Title, "Settings", "ReportPath", "") 
20 LoanPath = GetSettlng(App.Title, "Settings", "LoanPath", "") 

'Check the Paths 
If ReportPath = "" Then 
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If MsgBoxfPlease select the path to the report files.", vbOKCancel, "SETUP") = 
vbCancel Then mnuExit_Click 
mnuChangeReportPath_Cllck 
GoTo BackPath 
End If 

lfLoanPath = ""Then 

If MsgBoxf'Please select the path to the loan data files.", vbOKCancel, "SETUP") 
= vbCancel Then mnuExlt.Click 

mnuChangeLoanPath_Click 

GoTo BackPath 
End If 

'Open the Data File 
OpenFiles 

'Center the Autoemail form 
fraAuto.Left = (Me.Width - fraAuto. Width) / 2 
fraAuto.Top = (Me.Height - fraAuto.Height) / 3 
'Check to see if AutoEMail was on at the last shutdown 

If lnStr(UCase$(Command), "AUTO") > 0 Or GetSetting{App.Title, "Settings", "AutoEma 
il", "OFF") = "ON" Then 
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'Start if it was on 
5 mnuEnableAutoeMaiLCIick 
End If 

'Get System Settings from Registery 

Me.Caption = SystemName & " - " & Banl<Name & " - Ver: " & App.Major & "." & App.Min 
G or & App.Revision 
Ul Me.Show 
P DoEvents 

: If BankName = "Demo Bank" Then mnuNameChange_Click 
li If GetSetting(App.Title, "Settings", "Users", "") = "Disabled" Then 
p UsersDisabled = True 

mnuEnable_Click 

End If 

20 End Sub 

Private Sub Form_Resize() 

fraAuto.Left = (Me.Width - fraAuto. Width) / 2 
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fraAuto.Top = (Me.Height - fraAuto.Height) / 3 
Line1.X1 = 0 
Line1.X2 = Me. Width 
End Sub 

5 

Private Sub Form_L)nload(Cancel As Integer) 
Dim i As Integer 
CloseFiles 
'close all sub forms 
Ipk For i = Forms.Count - 1 To 1 Step -1 
Ci Unload Forms(i) 
i Next 

; End Sub 



20 Private Sub mnuBroadcast_ClickO 
frmBroadcastShow vbModal, Me 
End Sub 
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Private Sub mnuChangeLoanPath_Click() 
dIgCommonDialog.ShowOpen 
If dIgCommonDialog.FileName <> "" Then 
Dim L% 

L% = lnStrRev{dlgCommonDialog.FileName, T) 
lfL%>OThen 

LoanPath = Left(dlgCommonDialog.FileName, L%) 
Else 

LoanPath = dIgCommonDialog.FileName 
End If 

If ReportPath <> "" Then SaveSetting App.Title, "Settings", "LoanPath", LoanPath 
End If 
End Sub 

Private Sub mnuChangeReportPath_Click() 
dIgCommonDialog.ShowOpen 
If dIgCommonDialog.FileName <> "" Then 
Dim L% 

L% = lnStrRev(dlgCommonDiaIog.FileName, "\") 
lfL%>OThen 
ReportPath = Left{dlgCommonDiaIog.FileName, L%) 
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Else 

5 ReportPath = dIgCommonDialog.FileName 

End If 

If ReportPath <> Then SaveSetBng App.Title, "Settings", "ReportPath", Report 
Path 
End If 

1ft, End Sub 

-i/: Private Sub mnuDataUsers_Ciick() 
ff^ Dim f As New frmUsersGrid 

f.Show vbModal, Me 
li End Sub 

Private Sub mnuDlsable_Click() 

If UsersDisabled = True Then Exit Sub 

Dim SQL$ 

20 SQL$ = "Update Users Set [Previous StateJ = Suspend" 
dbs.Execute SQL 

SQL$ = "Update Users Set Suspend = True" 
dbs.Execute SQL 
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MsgBox "All users disabled!", vblnformation 

tbIUsers.lndex = "PrimaryKey" 

tblUsers.Seek"=MO 

tbIUsers.Edit 
5 tbIUserslSuspend = False 

tbIUsers.Update 

UsersDIsabled = True 

IblUsersDisabled.Vislble = True 

SaveSetting App.Tltle, "Settings", "Users", "Disabled" 
la. End Sub 

m Private Sub nnnuDlsableAutoeMaiLCIickO 
m If MsgBoxfWARNING! Your are about to disable auto email." & vbCrLf & "Daily statemen 
= ts will not be automatically generated." & vbCrLf & vbCrLf & "Is this what you want 
li to do?", vbExclamation + vbDefaultButfon2 + vbYesNo, "WARNING!") <> vbYes Then Exit S 

fraAuto.Visible = False 
Timer1.Enabled = False 
mnuEnableAutoeMail.Visible = True 
20 mnuDisableAutoeMail.Visible = False 
AutoFlag = False 

SaveSetting App.Tltle, "Settings", "AutoEmail", "OFF" 
DoEvents 
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End Sub 

Private Sub mnuEditAutoEmail_Click() 
Dim f As New frmAutotime 
5 f.Show vbModal, IVIe 
End Sub 

Private Sub mnuEnable_Clicl<0 
if UsersDisabled = Faise Then Exit Sub 
19=^ Dim SQL$ 

^ SQL$ = "Update Users Set Suspend = [Previous State]" 
m dbs. Execute SQL 
^ UsersDisabled = False 
f ^ IblUsersDisabled.Visible = False 
M SaveSetting AppTitle, "Settings", "Users", "Enabled" 
5 End Sub 

Private Sub mnuEnableAutoeMalLCIickO 
Dim StartTime As Date 
20 If UsersDisabled = True Then mnuEnable_Click 

SaveSetting App.Title, "Settings", "AutoEmail", "ON" 
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StartTime = GetSetting(App.Title, "Settings", "AutoTime", "08:00 AM") 
LastComplete = GetSetting{App.Title, "Settings", "LastAuto", "08:00 AM") 

if DateValue(LastComplete) = DateValue{Now()) Then 

NextTry = Format$(DateAdd{"w", 1, LastCompiete), "mm/dd/yyyy ") & StartTime 
Else 

NextTry = Format$(DateAdd("w", 1, LastComplete), "mm/dd/yyyy ") & StartTime 
End If 

'Add a day if it is Sunday 

If Weel<day{NextTry) = 7 Then NextTry = DateAdd("w", 1, NextTry) 
'Add another day if it Monday 

If Weekday{NextTry) = 1 Then NextTry = DateAddfw", 1, NextTry) 

Autol = GetSetting(App.Title, "Settings", "AutoBetween". "15") 

IblLastComplete - LastComplete 

lblLastTry = "Waiting" 

lblNext= NextTry 

IblMissing = 0 

fraAuto.Visible = True 

mnuEnableAutoeMail.Visible = False 
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mnuDisableAutoeMail.Visible = True 

IblTime = Format$(Now, "hh:mm:ss AMPM") 

Timer1.EnabIed = True 

AutoFlag = True 

DoEvents 

End Sub 

Private Sub mnuExiLCIick() 

Unload Me 

End 

End Sub 

Private Sub mnuGenerateCurrenLCIickQ 
ReportSet = "Current" 

If GetSetting(App.Title, "Settings", "FilesVerified", "") <> Now Then 
mnuVerify_Click 

If Format${GetSetting(App.Title, "Settings", "FilesVerified", ""), "mm/dd/yyyy") <> 

Format$(Now, "mm/dd/yyyy") Then 

If MsgBoxfThere are missing files needed to generate eMail. Do you wish to con 
tinue?", vbQuestion +vbYesNo, "INCOMPLETE INFORMATION") <> vbYes Then Exit Sub 

End If 
End If 

On Error Resume Next 
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GMessage = "": GBalance = True: GTrans% = True: GStatement% = True: GLoans% = True: 
GCSV% = True: GQwick% = True 
frmGenerate.Show vbModal, Me 
SaveSetting App.Title, "Settings", "LastAuto", Now 
5 On Error GoTo 0 
End Sub 

Private Sub mnuGeneratePrior_Clicl<0 
ReportSet= "Prior" 
IQ,^ On Error Resume Next 

Ci GMessage = "": GBalance = True: GTrans% = True: GStatement% = True: GLoans% = True 
m GCSV% = True: GQwick% = True 
y1 frmGenerate.Show vbModal, Me 
f On Error GoTo 0 
l|j End Sub 

Private Sub mnuHelpAbouLCIickO 
frmAboutShow vbModal, Me 
End Sub 

20 

Private Sub mnuHelpSearchForHelpOn_ClickO 
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Dim nRet As Integer 

'if there is no helpfile for this project display a message to the user 
'you can set the HeipFlie for your application in the 
'Project Properties dialog 
lfLen(App.HelpFile) = OThen 

MsgBox "Unable to display Help Contents. There is no Help associated with this pr 
eject", vblnformation, Me.Caption 
Else 

On Error Resume Next 

nRet= OSWinHelp(Me.hwnd, App.HelpFile, 261, 0) 
If Err Then 

MsgBox Err.Description 
End If 
End If 

End Sub 

Private Sub mnuHelpContents_Click{) 
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Dim nRet As Integer 

'if there is no lielpfile for this project display a message to the user 
'you can set the HelpFile for your application in the 
'Project Properties dialog 
lfLen(App.HelpFile) = OThen 

MsgBox "Unable to display Help Contents. There is no Help associated with this pr 
oject", vblnformation, Me.Captlon 
Else 

On Error Resume Next 

nRet = OSWinHelp(Me.hwnd, App.HelpFile, 3, 0) 
If Err Then 

MsgBox Err.Description 
End If 
End If 
End Sub 

Private Sub mnuNameChange_Click() 
frmNameChange.Show vbModal, Me 

Me.Captlon = SystemName & " - " & BankName & " - Ver: " & App.Major & "." & App.Minor 
&App. Revision 
End Sub 
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Private Sub mnuSelectecl_Click() 
frmSelected.Show vbModal, Me 
End Sub 



5 Private Sub mnuTranCodes_Click{) 
frmTranCodes.Show vbl\/1odal, iVle 
End Sub 

Private Sub mnuVerify_Clicl<{) 
1^ Dim FileName$ 
Q FilesMissIng = 0 
S FileName = "MNTB002.PRN" 

f j If Djr$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
: , = False Then GoSub ShowMissing 
M FileName = "MNTB003.PRN" 

B If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
= False Then GoSub ShowMissing 
FileName = "MNTB004.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
20 = False Then GoSub ShowMissing 
FileName = "MNTB005.PRN" 
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If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
5 = False Then GoSub ShowMissing 
FileName = 'TBAL005.PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1; If AutoFlag 
= False Then GoSub ShowMissing 
FileName = 'TBAL007.PRN'' 
Ife If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1 : If AutoFlag 
Cj = False Then GoSub ShowMissing 
m FileName = "TBAL008.PRN" 

5^ If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 

= False Then GoSub ShowMissing 

FileName = "PJNL001.PRN" 
o if Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 

= False Then GoSub ShowMissing 

FileName = "PJNL002.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 : If AutoFlag 
20 = False Then GoSub ShowMissing 
FileName = "STMT090.PRN" 

If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1 : If AutoFlag 
= False Then GoSub ShowMissing 
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FileName = "CFLZ007.PRN" 

If Dir$(ReportPath & FlleName) = Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FlleName = "CF_026.PRN" 

If Dir${ReportPath & FlleName) = Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
FlleName = "CF_027.PRN" 

If Dir$(ReportPath & FlleName) = "" Then FilesMissing = FilesMissing + 1: If AutoFlag 
= False Then GoSub ShowMissing 
If FilesMissing = 0 Then 

SaveSetting App.Tltle, "Settings", "FilesVerified", Now 

MsgBox "All files needed to generate email are present", vblnformation, "VERIFIED 

Else 

If AutoFlag = False Then 
If FilesMissing = 1 Then 
MsgBox "One file needed to generate eStatements is missing!", vblnformation, 
"MISSING FILES" 
Else 

MsgBox FilesMissing & " files needed to generate eStatements are missing!", 
vblnformation, "MISSING FILES" 
End If 
End If 
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End If 
Exit Sub 

'Show which file is missing if not Auto Generating 
5 ShowMissing: 

MsgBox FileName & " is missing.", vblnformation, "MISSING FILE" 

Return 
End Sub 

1Q=, Private Sub Timerl _Timer() 

5 IblTime = Format$(Now, "hh:mm AMPM") 

Cri If Not AutoFlag Then Exit Sub 

5n If Now < NexlJry Then Exit Sub 

'Give it a try 
1^ 'Check Files 

B Dim X%, FileNameS 

FilesMissing = 0 
FileName = "MNTB002.PRN" 
20 If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "MNTB003.PRN" 
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frmMain - 7 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
5 FileName = "MNTB004.PRN" 

If Dir${ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "MNTB005.PRN" 

If Dir${ReportPath & FileName) = Then FilesMissing = FilesMissing + 1 
FileName = "TBAL005.PRN" 
IQ^ If Dir$(ReportPath & FileName) = Then FilesMissing = FilesMissing + 1 
5 FileName = "TBAL007.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
Jj FileName = "TBAL008.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
lij FileName = "PJNL001.PRN" 

□ If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "PJNL002.PRN" 

If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "STMT090.PRN" 
20 If Dir${ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "CFLZ007.PRN" 

If Dir${ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "CF_026.PRN" 
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If Dir$(ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 
FileName = "CF_027.PRN" 

If Dir${ReportPath & FileName) = "" Then FilesMissing = FilesMissing + 1 

5 If FilesMissing = 0 Then 

SaveSetting App.Title. "Settings", "FilesVerified", Now 
DoEvents 
Else 

IblMissing = FilesMissing 
1% IblLastTry = Fomnat$(Now, "mm/dd/yyyy hh:mm:ss AMPM") 
^ LasfTry = IblLastTry 
m NextTry = DateAdd("n", Autol, LastTry) 
J lblNext=Nex1Try 

DoEvents 
Igj Exit Sub 
3 End If 

On Error Resume Next 

GMessage = "": GBalance = True; GTrans% = True: GStatement% = True: GLoans% = True: 
GCSV% = True: GQwick% = True 
20 frmGenerate.Show vbModal, Me 

SaveSetting App.Title, "Settings", "LastAuto", Now 

mnuExit_Click 

Exit Sub 



-141- 



LastComplete = Now 

IblLastComplete = Format$(Now, "mm/dd/yyyy hh:mm:ss AMPM") 
Dim StartTime As Date 

StartTime = GetSetting(App.Title, "Settings", "AutoTime", "07:00 AM") 

NextTry = Format$(DateAdd{"w", 1, LastComplete), "mm/dd/yyyy ") & StartTime 

FilesMissing = 0 

IbliVlissing = 0 

lblNext = NextTry 

DoEvents 

End Sub 
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frmMain - 1 
VERSION 5.00 

5 Object = "{F9043C88-F6F2-1 01 A-A3C9-08002B2F49FB}#1 .2#0"; "COMDLG32.0CX" 
Begin VB.Form frmMain 
Caption = "eStatementMainiVlenu" 
ClientHeight = 5640 
ClientLeft = 165 
ICL, ClientTop = 450 
!H ClientWidth = 8415 
m icon = (Icon) 
m LinkTopIc = "Form1" 

ScaleHeight = 5640 
M ScaleWldth = 8415 
O StartUpPosltion = 2 'CenterScreen 
Begin VB.TImerTimerl 
Interval = 65535 
Left = 840 
20 Top = 1140 

End 

Begin VB.Frame fraAuto 
Caption = "Auto eMaills Active" 
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ForeColor = &HOOOOOOFF& 
Height = 2355 
Left = 2340 
Tablndex = 1 
Top = 300 
Visible = 0 'False 
Width = 4035 
Begin VB.Label IblTime 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

Height = 255 

Left = 1560 

Tablndex = 11 

Top = 1860 

Width =1215 
End 

Begin VB.Label Label? 
Caption = "Current Time:" 
Height = 255 
Left = 300 
Tablndex = 10 
Top = 1860 
Width = 1275 



End 

Begin VB.Label IblMissing 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

Heiglit = 255 

Left = 1560 

Tablndex = 9 

Top = 1500 

Widtli =615 
End 

Begin VB.Label Label6 

Caption = "Missing Files:" 

Height = 255 

Left = 300 

Tablndex = 8 

Top = 1500 

Width = 1275 
End 

Begin VB.Label IblLastTry 
BackColor = &H8000000E& 
BorderStyle = 1 'Fixed Single 
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Height = 255 
Left = 1560 
Tablndex = 7 
Top = 1140 
Width = 2295 
End 

Begin VB.Label Labels 

Caption = "Last Attempt:" 

Height = 255 

Left = 300 

Tablndex = 6 

Top = 1180 

Width = 1275 
End 

Begin VB.Label IblLastComplete 
BackColor = &H8000000E& 
BorderStyle = 1 'Fixed Single 
Height = 255 
Left = 1560 
Tablndex = 5 



Top = 420 
Width = 2295 
End 

Begin VB.Label IblNext 

BackColor = &H8000000E& 

BorderStyle = 1 'Fixed Single 

Height = 255 

Left = 1560 

Tablndex = 4 

Top = 780 

Width = 2295 
End 

Begin VB.Label Label3 

Caption = "Next Schedule:" 

Height = 255 

Left = 300 

Tablndex = 3 

Top = 780 

Width = 1275 
End 

Begin VB.Label Label2 
Caption = "Last Complete:" 
Height = 255 



Left = 300 
Tablndex = 2 
Top = 420 
Width = 1275 
End 
End 

Begin MSComDIg.ConnmonDialog dlgCommonDialog 

Left = 3180 

Top = 1350 

_ExtentX = 847 

_ExtentY = 847 

.Version = 393216 
End 

Begin VB.Label IblUsersDIsabled 
Caption = "WARNING! USERS ARE DISABLED!" 
BeginProperty Font 

Name = "MS Sans Serif 

Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False 
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Italic = 0 'False 
5 Strikethrough = 0 'False 



EndProperty 




ForeColor 


= &HOOOOOOFF& 


Height 


255 


Left 


240 


Tablndex 


= 12 


Top = 


60 


Visible = 


0 'False 


Width 


■ 4635 



= = End 

its Begin VB.Line Line1 

3 X1 =0 

X2 = 11000 

Y1 =0 

Y2 = 0 

20 End 

Begin VB.Label Labell 

Alignment = 2 'Center 

AutoSize = -1 'True 
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Height 


= 195 


Left 


= 4920 


Tablndex 


= 0 


Top 


= 1440 


Visible 


= 0 'False 


Width 


= 75 



End 

Begin VB.Menu mnuDataUsers 
Caption = "SCustomers" 
End 

Begin VB.Menu mnuOptions 
Caption = "&Options" 
Begin VB.Menu mnuChangeReportPath 

Caption = "&Change Report Path" 
End 

Begin VB.Menu mnuChangeLoanPath 

Caption = "Change &Loan Data Path" 
End 

Begin VB.Menu mnuNameChange 

Caption = "Change SSystem Information" 
End 

Begin VB.Menu mnuEditAutoEmail 
Caption = "Edit Auto e-Mail &Settings" 



End 

Begin VB.Menu mnuTranCodes 

Caption = "&Edit Iran Codes" 
End 

5 Begi n VB.Menu mn uEnable_Disable 

Caption = "&Enable/Disable" 
Begin VB.IVIenu mnuEnable 

Caption = "&EnableAII" 
End 

10= Begin VB.IVIenu mnuDisable 

5 Caption = "&DisableAII" 

m End 
m End 

: Begin VB.Menu mnuSelected 

M Caption = "&Generate Selected e-Mail" 

O End 
End 

Begin VB.Menu mnuVerify 
Caption = "&Verify Files" 
20 End 

Begin VB.Menu mnuEnableAutoeMail 
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frmMain - 4 

Caption = "&Enable Auto e-Mail" 
5 End 

Begin VB.Menu mnuDisableAutoelVlail 

Caption = "&Disable Auto e-IVIail" 

Visible = 0 'False 
End 

10=,, Begin VB.IVIenu mnuGenerate 
J! Caption = "&Generate e-IVIail" 
m Begin VB.Menu mnuGenerateCurrent 
yi Caption = "Generate &Current" 

f End 

]^ Begin VB.IVIenu mnuGeneratePrior 
5 Caption = "General &Prior" 

End 
End 

Begin VB.Menu mnuBroadcast 
20 Caption = "&Broadcast" 

End 

Begin VB.Menu mnuHelp 
Caption = "&Help" 
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Begin VB.Menu mnuHelpContents 

Caption = "&Contents" 
End 

Begin VB.Menu mnuHelpSearchForHelpOn 
Caption = "&Search For Help On..." 
End 

Begin VB.Menu mnuHelpBarO 

Caption = "-" 
End 

Begin VB.Menu nnnuHelpAbout 

Caption = "&About" 
End 
End 

Begin VB.Menu mnuExIt 
Caption = "&Exit" 
End 
End 
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Option Explicit 

Private Sub cmdClose_Clicl(0 
Unload Me 

Set frmNameChange = Nothing 
End Sub 

Private Sub cmdSave_Cllcl<() 
DimX% 

X% = Val(txtStatementFont) 
lfX%>8 0rX%<2Then 

MsgBox "Valid font sizes are from 2 to 8 only!" & vbCrLf & vbCrLf & "Try Again!", 
vblnformation, "INVALID FONT SIZE" 

Exit Sub 
End If 

SaveSetting App.Title, "Settings", "SystemName", Trim$(txtSystemName) 
SaveSetting App.Title, "Settings", "BankName", Trim$(txtBankName) 
SaveSetting App.Title, "Settings", "StatementFont", Trim$(b(tStatementFont) 
SaveSetting App.Title, "Settings", "GIFName", Trim${txtGifName) 
SystemName$ = Trim$(txtSystemName) 
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BankName$ = Trim$(txtBankName) 
StatementFont% = Trim$(txtStatementFont) 
GIFNameS = Trim$(txtGifName) 
cmdClose_Click 
5 End Sub 

Private Sub cmdBrowse_Click() 
Dim FileName$, L% 
FileNameS = GIFName 
la L% = lnStrRev(FileName$, "\") 
5 lfL%<>OThen 

; Ji CommonDialogI .InitDir = Left$(FileName$, L%) 
5 Else 

CommonDialogI .InitDir = App.Path 
iB End If 

CommonDialogI .Filter = "Pictures (*.gif;*.jpg)|*.gif;*.jpg" 
CommonDialogI .Filterlndex = 1 
CommonDialogI .CancelError = True 
CommonDialogI. Action = 1 
20 if Err > 0 Then On Error GoTo 0: Exit Sub 
On Error GoToO 

FileName$ = CommonDialoglFileName 
If UCase$(Right$(FileName$, 3)) <> "GIF" And UCase$(Right$(FileName$, 3)) <> "JPG" Th 
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MsgBox "Invalid file type. JPG or GIF only.", vblnformation, "FILE TYPE ERROR" 
Exit Sub 
End If 

5 txtGifName = CommonDialogI .FileName 
End Sub 

Private Sub Form_Load() 
10 IVle.Caption = SystemName & " " & Me.Caption 

Jj txtSystemName = GetSetting(App.Title, "Settings", "SystennName", "eStatement") 
JJj txtBankName = GetSetting(App.Title, "Settings", "BankName", "Demo Bank") 
ei txtStatementFont = GetSetting(App.Title, "Settings", "StatementFont", "6") 

txtGifName = GetSetting(App.Title, "Settings", "GIFName", "") 
l|; End Sub 
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VERSION 5.00 

Object = "{F9043C88-F6F2-1 01 A-A3C9-08002B2F49FB}#1 .2#0"; "COMDLG32.0CX" 
Begin VB.Form frmNameChange 
Caption = "Change System Infomiation" 
ClientHeight = 2535 
ClientLeft = 60 
ClientTop = 345 
ClientWidth = 5430 
LinkTopic = "Form1" 
ScaleHeight = 2535 
ScaleWidth = 5430 
StartUpPosition = 1 'CenterOwner 
Begin MSComDIg.CommonDialog CommonDialogI 

Left = 4260 

Top = 2100 

_ExtentX = 847 

_ExtentY = 847 

.Version = 393216 
End 

Begin VB.CommandButton cmdBrowse 
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Caption = "&Browse" 

Height =315 

Left = 4560 

Tabindex = 11 

Tag = "OK" 

Top = 1500 

Width = 795 
End 

Begin VB.TextBox txtGlfName 

Height =315 

Left = 1740 

Tabindex = 9 

Top = 1500 

Width = 2715 
End 

Begin VB.CommandButton cmdSave 

Caption = "&Save" 

Height = 375 

Left = 1418 

Tabindex = 7 

Tag = "OK" 

Top = 2025 

Width = 1095 



End 

Begin VB.CommandButton cmdClose 



Cancel 


= -1 True 


Caption 


= "&Close" 


Height 


= 375 


Left 


= 2918 


Tablndex 


= 6 


Tag 


= "Cancel" 


Top 


= 2025 


Width 


= 1095 



End 

Begin VB.TextBox txtStatementFont 

Height =315 

Left = 1740 

MaxLength = 2 

Tablndex = 5 

Top = 1080 

Width = 435 
End 

Begin VB.TextBox txtBankName 
Height =315 



frmNameChange - 2 

Left = 1740 
5 Tablndex = 3 

Top = 660 

Width = 2715 
End 

Begin VB.TextBox txtSystemName 
10 Height =315 

J Left = 1740 
tj Tablndex = 1 

Top = 240 

Width = 2715 
l}j End 

;:t Begin VB.Label Labell 

Caption = "Statement Graphic:" 

Height = 255 

Index = 4 

20 Left = 120 

Tablndex = 10 

Top = 1500 

Width = 1575 
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End 

Begin VB.Label Labell 
Caption = "(2 to 8)" 
Height = 255 
5 Index = 3 

Left = 2340 
Tablndex = 8 
Top = 1080 
Width = 1575 

10 End 

J Begin VB.Label Labell 
5 Caption = "Statement Font Size:" 
m Height = 255 
Index = 2 

11 Left = 120 
^ Tablndex = 4 

Top = 1080 
Width = 1575 
End 

20 Begin VB.Label Labell 

Caption = "Bank Name:" 
Height = 255 
Index = 1 
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9 



Left 


= 120 


Tablndex 


= 2 


Top 


= 660 


Width 


= 1575 



5 End 

Begin VB.Label Labell 
Caption = "System Name:' 
Heigfit = 255 
Index = 0 

10 Left = 120 

O 

J Tablndex = 0 

I Top = 240 

m Widtti = 1575 

RJ 

1 

o 

m 

Q 



End 
End 
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Option Explicit 

5 

Private Sub cmdCanceLCIicl<0 
Unload Me 

Set frmSelected = Nothing 
End Sub 

Ig 

^ Private Sub cmdContinue_Click() 
yj DimX%,T% 

Ji If Checkl (0) = 1 Then GBalance% = True Else GBalance% = False 
= If Checkl (1 ) = 1 Then GTrans% = True Else GTrans% = False 
lij If Checkl (2) = 1 Then GLoans% = True Else GLoans% = False 
g If Checkl (3) = 1 Then GStatement% = True Else GStatement% = False 
If Checkl (4) = 1 Then GCSV% = True Else GCSV% = False 
If Checkl (5) = 1 Then GQwick% = True Else GQwick% = False 
ForX% = 0To5 
20 T% = T%+ Checkl (X%) 
Next 

lfT% = OThen 

MsgBox "You must select at least one option to generate.", vblnformation, "NOTHING 
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TO DO" 
Exit Sub 
End If 

GMessage = TrimSfTextl) 
lfTrim$(Text1) = ""Then 

If MsgBoxfNo message has been entered, do you wish to continue?", vbQuestion 
YesNo +vbDefaultButton2, "MESSAGE OPTION") <> vbYesThen Exit Sub 
End If 

On Error Resume Next 
Me.Hide 

frmGenerate.Show 
On Error GoToO 
cmdCanceLCIick 
End Sub 

Private Sub Form_Load() 

Me.Caption = SystemName & " " & Me.Caption 

End Sub 
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VERSION 5.00 
5 Begin VB.Form frmSelected 

BorderStyle = 3 'Fixed Dialog 
Caption = "Selective Send" 
ClientHeight = 4005 
ClientLeft = 45 
10 ClientTop = 330 
jO ClientWidth = 4680 
rt Icon = (Icon) 
^ LinkTopic = "Fonml" 
=" MaxButton = 0 'False 
liJ MinButton = 0 'False 
3 ScaleHeight = 4005 
ScaleWidth = 4680 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
20 Begin VB.TextBoxTextl 
Height =915 
Left = 360 
Multiline = -1 True 
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ScrollBars = 2 Vertical 

Tablndex = 8 

Top = 2580 

Width = 4035 
5 End 

Begin VB.CommandButton cmdContinue 

Cancel = -1 True 

Caption = "&Continue" 

Heiglit = 300 
10 Left = 840 

Tablndex = 7 
^ Top = 3600 
m Width = 1095 
7 End 

l|l Begin VB.CommandButtan cmdCancel 
% Caption = "C&ancel" 

Height = 300 

Left = 2580 

Tablndex = 6 
20 Top = 3600 

Width = 1095 
End 

Begin VB.CheckBox Checkl 
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Caption = "Generate Qwicken Attachments" 

Height = 255 

Index = 5 

Left = 960 

Tablndex = 5 

Top = 1980 

Width = 2895 
End 

Begin VB.CheckBox Checkl 

Caption = "Generate CSV Attachments" 

Height = 255 

Index = 4 

Left = 960 

Tablndex = 4 

Top = 1620 

Width = 2895 
End 

Begin VB.CheckBox Checkl 

Caption = "Generate Statement Attachments" 

Height = 255 

Index = 3 
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Left = 960 

Tablndex = 3 

Top = 1260 

Width = 2895 
End 

Begin VB.CheckBoxCheckl 

Caption = "Generate Loan Information" 

Height = 255 

Index = 2 

Left = 960 

Tablndex = 2 

Top = 900 

Width = 2895 
End 

Begin VB.CheckBox Checkl 

Caption = "Generate Transactions" 

Height = 255 

Index = 1 

Left = 960 

Tablndex = 1 



-168- 



Top = 540 

Width = 2895 
End 

Begin VB.CheckBox Checkl 

Caption = "Generate Balance Information" 

Height = 255 

Index = 0 

Left = 960 

TabI ndex = 0 

Top = 180 

Width = 2895 
End 

Begin VB.Label LabeM 

Caption = "Message:" 

Height = 255 

Left = 60 

TabI ndex = 9 

Top = 2280 

Width =1155 
End 
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Option Explicit 

5 

Private Sub Fomn_Loacl() 

IblVersion.Caption = "Version " & App.Major & "." & App.Minor & "." & App.Revision 

IblProductName.Caption = App.Title 

IblCompanyProduct = App.CompanyName 
10 ' lblCopyright = App.LegalCopyright 
* ' IblCompany = App.CompanyName 



End Sub 

1|J 
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VERSION 5.00 
Begin VB.Form frmSplash 
BorderStyle = 3 'Fixed Dialog 
ClientHeight = 4710 
ClientLeft = 45 
ClientTop = 45 
ClientWidth = 7455 
ControlBox = 0 'False 
LinkTopic = "Forml" 
MaxButton = 0 'False 
MinButton = 0 'False 
ScaleHeight = 4710 
ScaleWidth = 7455 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
Visible = 0 'False 
Begin VB.Frame fral\/1ainFrame 

Height = 4590 

Left = 60 

Tablndex = 0 



Top = -15 
Width = 7380 
Begin VB.PictureBox piclcon 
AutoSize = -1 True 
5 BadColor = &HOOCOCOCO& 

ClipControls = 0 'False 
Heiglit = 1260 
Left = 420 
Picture = (Bitmap) 
10 ScaleHeight = 1200 

ScalelVIode = 0 'User 
:^ ScaieWidth = 1200 

m Tablndex = 7 

7 TabStop = 0 'False 

18J Top = 600 

3 Width = 1260 

^ End 

Begin VB.Label IblLlcenseTo 
Alignment = 1 'Right Justify 
20 Caption = "LicenseTo: Lamar Bank -Beaumont Texas" 

Height = 255 
Left = 270 
Tablndex = 1 
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Tag = "LicenseTo" 
Top = 300 
Width = 6855 
End 

Begin VBlabel IblProductName 
AutoSize = -1 True 
Caption = "Product" 
BeginProperty Font 

Name = "Lucida Calligraphy" 

Size = 24 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 
EndProperty 
Height =615 
Left = 2670 
Tablndex = 6 
Tag = "Product" 
Top = 1200 
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Width = 3120 
End 

Begin VB.Label IblCompanyProduct 
AutoSize = -1 True 
Caption = "CompanyProduct" 
BeginProperty Font 

Name = "MS Sans Serif 

Size = 13.5 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 



EndProperty 




Height 


■ 360 


Left 


2505 


Tablndex 


= 5 


Tag 


"CompanyProduct" 


Top = 


765 


Width 


2415 



End 

Begin VB.Label IblPlatform 
Alignment = 1 'Right Justify 
AutoSize = -1 True 
Caption = "Platform Windows 95+" 
BeginProperty Font 

Name = "MS Sans Serif 

Size = 13.5 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 



EndProperty 




Height 


360 


Left 


3900 


Tablndex 


= 4 


Tag 


"Platform" 


Top = 


2400 


Width 


3105 



End 



Begin VB.Label IblVersion 
Alignment = 1 'Right Justify 



AutoSize = -1 True 
Caption = "Version" 
Begin Property Font 

Name = "MS Sans Serif 

Size = 12 

Charset = 0 

Weight = 700 

Underline = 0 'False 

Italic = 0 'False 

Strikethrough = 0 'False 



EndProperty 




Height 


: 300 


Left 


6075 


Tablndex 


= 3 


Tag 


"Version" 


Top = 


2760 


Width 


930 



End 



Begin VB.Label IblWarning 
Caption = "Warning: Copyright 1 999-2000, Resource Development Sys 
BeginProperty Font 
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Name = "MS Sans Serif 
Size = 9.75 
Charset = 0 
Weight = 700 
Underline = 0 'False 
Italic = 0 'False 
Strikethrough = 0 'False 

EndProperty 

Height =615 

Left = 300 

Tablndex = 2 

Tag = "Warning" 

Top = 3720 

Width = 6855 
End 
End 
End 
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Option Explicit 
Private Sub cmdAdd_ClickO 
datPrlmaryRS.RecordsetAddNew 
End Sub 

Private Sub cmdDelete_Click() 
With datPrimaryRS.Recordset 
.Delete 
.MoveNext 

If .EOF Then .MoveLast 
End With 
End Sub 

Private Sub cmdRefresh_Click{) 
'This is only needed for multi user apps 
datPrimaryRS.Refresh 

End Sub 

Private Sub cmdUpdate_ClickO 
datPrimaryRS.UpdateRecord 




datPrimaryRS.Recordset.Bookmark = clatPrimaryRS.Recordset.LastModified 
End Sub 

Private Sub cmdClose_Click() 
5 Screen.MousePointer = vbDefault 
Unload Me 
End Sub 

Private Sub datPrimaryRS_Error{DataErr As Integer, Response As Integer) 
1(L^ 'This is where you would put error handling code 
y 'If you want to ignore errors, comment out the next line 
lil 'If you want to trap them, add code here to handle them 
ffl MsgBox "Data error event hit err:" & Error$(DataErr) 
Response = 0 'Throw away the error 
iff. End Sub 

Private Sub datPrimaryRS_Reposition() 

Screen.MousePointer = vbDefault 

On Error Resume Next 
20 'This will display the cun^ent record position for dynasets and snapshots 

datPrimaryRS.Caption = "Trancode: " & (datPrimaryRS.Recordset.AbsolutePosition + 1) 
End Sub 
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Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer) 
This is where you put validation code 
This event gets called when the following actions occur 
Select Case Action 
5 Case vbDataActionlVloveFirst 

Case vbDataActionMovePrevious 
Case vbDataActionMoveNext 
Case vbDataActionlVloveLast 
Case vbDataActionAddNew 
IQu, Case vbDataActionUpdate 
y Case vbDataActionDelete 
yi Case vbDataActionPind 
7; Case vbDataActionBookmarl( 

Case vbDataActionClose 
lil Screen.MousePointer - vbDefault 
O End Select 

Screen.MousePointer = vbHourglass 
End Sub 

20 Private Sub Form„Load() 

Me.Caption = SystemName & " " & Me.Caption 
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datPrimaryRS.DatabaseName = App.Path & "\estatement.mdb" 
5 End Sub 



Private Sub Form_Unload(Cancel As Integer) 
Screen.MousePointer = vbDefault 



End Sub 
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VERSION 5.00 
5 Begin VB.Form frmTranCodes 

BorderStyle = 3 'Fixed Dialog 
Caption = "Iran Codes" 
ClientHeight = 1695 
ClientLeft = 1095 
IQ^, ClientTop = 330 
S ClientWidth = 5550 
=il Icon = (Icon) 
f LinkTopic = "Fomn2" 
;^ MaxButton = 0 'False 
M MlnButton = 0 'False 
O ScaleHeight = 1695 
ScaleWidth = 5550 
ShowlnTaskbar = 0 'False 
StartUpPosition = 2 'CenterScreen 
20 Begin VB.PictureBox picButtons 
Align = 2 'Align Bottom 
Appearance = 0 'Flat 
BorderStyle = 0 'None 
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ForeColor = &H80000008& 

Height = 300 

Left = 0 

ScaleHeight = 300 

ScaleWidth = 5550 

Tablndex = 6 

Top = 1050 

Width = 5550 

Begin VB.CommandButton cmdClose 

Caption = "&Close" 

Height = 300 

Left = 4505 

Tablndex = 11 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdUpdate 
Caption = "&Update" 
Height = 300 
Left = 3409 
Tablndex = 10 
Top = 0 
Width = 975 



End 

Begin VB.CommandButton cmdRefresh 
Caption = "&Refresh" 
Height = 300 
5 Left = 2313 

Tabindex = 9 
Top = 0 
WIdtli = 975 
End 

1(1 Begin VB.CommandButton cmdDelete 

J Caption = "&Delete" 

5 Heiglit = 300 

5 Left = 1217 

= Tabindex = 8 

iB Top = 0 

=:! Widtli = 975 

End 

Begin VB.CommandButton cmdAdd 
Caption = "&Add" 
20 Heiglit = 300 

Left = 121 
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Tablndex = 7 
5 Top = 0 

Width = 975 
End 
End 

Begin VB.Data datPrimaryRS 
IQL;, Align = 2 'Align Bottom 
5 Caption = "" 
01 Connect = "Access" 
^ DatabaseName = "C:\ebalance\ebalance.mdb" 

DefaultCursorType= 0 'DefaultCursor 
M DefaullJype = 2 'UseODBC 
h Exclusive = 0 'False 
Height = 345 
Left = 0 
Options = 0 
20 Readonly = 0 'False 

RecordsetType = 1 'Dynaset 
RecordSource = "select* from [Tran Codes]" 
Top = 1350 
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Width = 5550 
End 

Begin VB.CheckBox chkFields 



DataFleld 


= "Action" 


DataSource 


= "datPrimaryRS' 


Height 


285 


Index = 


2 


Left 


2040 


Tablndex 


= 5 


Top = 


700 


Width 


3375 



ill End 

=i Begin VB.TextBox txtFields 
= DataFleld = "Description" 

iSj DataSource = "datPrimaryRS" 
jsj Height = 285 
~ Index = 1 
Left = 2040 
MaxLength = 30 
20 Tablndex = 3 

Top = 380 
Width = 3375 
End 
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Begin VB.TextBox txtFields 

DataField = "TC" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 0 

Left = 2040 

Tablndex = 1 

Top = 60 

Width = 735 
End 

Begin VB. Label IblLabels 

Caption = "Debit" 

Height = 255 

Index = 2 

Left = 120 

Tablndex = 4 

Top = 700 

Width =1815 
End 

Begin VB.Label IblLabels 
Caption = "Description:" 
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Height = 255 

Index = 1 

Left = 120 

Tablndex = 2 

Top = 380 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Transaction Code:" 

Height = 255 

Index = 0 

Left = 120 

Tablndex = 0 

Top = 60 

Width =1815 
End 
End 
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Option Explicit 
5 Function l\/lal<eAlplia(AcctName As String) 
DimL%,X% 
'Remove all commas 
Do 

L% = lnStr(AcctName, ",") 
m if L% <> 0 Then IVIid$(AcctName, L%) = " " 
^ Loop Until L% = 0 

P "Remove NickNames "(JilVI)" 



M L% = lnStr{AcctName, "(") 
5 lfL%<>OThen 

X% = lnStr(AcctName, ")") 

On Error Resume Next 

If X% <> 0 Then AcctName = Trim${Left${AcctName, L% - 1)) & " " &Trim$(l\/li(l$(AcctN 
20 ame,X% + 1)) 

On Error GoTo 0 
End If 
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'Remove Brackets 

L% = lnStr{AcctName, T) 

lfL%<>OThen 

X% = lnStr{AcctName, "]") 

On Error Resume Next 

If X% <> 0 Then AcctName = Trim$(Trim$(Left$(AcctName, L% - 1)) & " " & Trim$(Mid$ 
(AcctName,X% + 1))) 

On Error GoToO 
End If 

'Remove THE' 

If Left${AcctName, 4) = "THE " Then AcctName = Mid$(AcctName, 5) 

GoSub RemoveDouble 

BackName: 

'Find and Remove Suffixs 
X% = Len(AcctName) 
Do 

If Mid$(AcctName, X%, 1) = " " Then Exit Do 
X% = X%-1 
Loop Until X% = 0 

Select Case Mid$(AcctName, X% + 1) 
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Case "SR", "JR", "AND", "III", "OR", "MD", "DDS", "DVM", "DBA", "CPA", "II", "IV" 

AcctName = Left$(AcctName, X% - 1) 

GoTo BackName 
Case "SR.", "JR.", "M.D.", "D.D.S.", "D.V.M.", "D.B.A.", "C.P.A." 
5 AcctName = Left$(AcctName, X% - 1 ) 

GoTo BackName 

Case "COMPANY", "CO", "INC", "CLUB", "INC.", "CO.", "ASSOC.", "ASSOC", "ASSOCIATES" 
GoSub StrlpPeroids 

MakeAlpha = LeftSCTrimSlAcctName), 12): Exit Function 
10== Case Else 
\j GoSub StripPeroids 
m X% = Len(AcctName) 
P Do 

:^ If Mid$(AcctName, X%, 1 ) = " " Then Exit Do 

M X% = X%-1 

5 Loop Until X% = 0 

MakeAlpha = Mid$(AcctName, X% + 1) & " + Left$(AcctName, X% - 1) 
End Select 
Exit Function 

20 

StripPeroids: 
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Do 

5 L% = lnStr(AcctName, ".") 

If L% <> 0 Then Mid$(AcctName, L%) = " ": AcctName = Trim$(AcctName) 

Loop Until L% = 0 

RemoveDouble: 

'Remove Double Spaces 
1Q=. Do 

q L% = lnStr{AcctName, " ") 

Jl If L% <> 0 Then AcctName = Left${AcctName, L%) & Trlm$(Mid$(AcctName, L%)) 
31 Loop While L% <> 0 

Return 
lit End Function 



Private Sub cmdAccounts_Click{) 
CurrentlD = txtFields{0) 
frmAccounts.Show vbModal, Me 
20 End Sub 

Private Sub cmdAdd_Click() 
datPrimaryRS.RecordsetAddNew 
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txtFields(O) = datPrimaryRS.Recorclset![ID] 
txtFields(3) = Format$(Now, "mm/dd/yyyy") 
txtFields(1).SetFocus 
End Sub 

Private Sub cmdDelete_Click() 

If MsgBoxC'Delete this user?", vbYesNo + vbQuestion, "DELETE USER") <> vbYes Then E 
xitSub 
Dim SQL$ 

SQL$ = "Delete from Accounts where [User ID] =" & txtFields(O) 

dbs.Execute SQL$ 

With datPrimaryRS.Recordset 

.Delete 

.MoveNext 

If .EOF Then .MoveLast 
End With 
cmdClose_Click 
End Sub 



Private Sub cmdUpdate_Click() 
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On Error Resume Next 
datPrimaryRS. UpdateRecord 
If Err Then 

MsgBox "An error has occured in this update. " & Error$, vbOKOnly, "UPDATE ERROR" 
End If 

On Error GoTo 0 

datPrimaryRS.Recordset. Bookmark = datPrimaryRS. Recordset. LastModified 

txtFields(O) = CurrentID 

txtFields(1).SetFocus 

Screen.MousePolnter = 0 

End Sub 

Private Sub cmdClose_Click() 

Screen.MousePointer = vbDefault 

Unload Me 
End Sub 

Private Sub Combo1_ChangeO 
End Sub 
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5 Private Sub datPrimaryRS_Error(DataErr As Integer, Response As Integer) 

This is where you would put error handling code 

'If you want to ignore errors, comment out the next line 

If you want to trap them, add code here to handle them 

MsgBox "Data error event hit err:" & Error$(DataErr) 
ICL; Response = 0 Throw away the error 
G End Sub 

yi Private Sub datPrimaryRS_Reposition() 

Screen.MousePointer = vbDefault 
]M On Error Resume Next 

n This will display the current record position for dynasets and snapshots 

datPrimaryRS.Caption = "User: " & (datPrimaryRS.RecordsetAbsolutePosition + 1 ) 
End Sub 

20 Private Sub datPrimaryRS_Validate(Action As Integer, Save As Integer) 
This is where you put validation code 
This event gets called when the following actions occur 
Select Case Action 
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Case vbDataActionMoveFirst 

Case vbDataActionMovePrevious 

Case vbDataActionMoveNext 

Case vbDataActionMoveLast 
5 Case vbDataActionAddNew 

Case vbDataActionUpdate 

Case vbDataActionDelete 

Case vbDataActionFind 

Case vbDataActionBookmark 
10^ Case vbDataActionClose 
~t; Screen.MousePointer = vbDefault 
ji End Select 

SI Screen.MousePointer = vbHourglass 
End Sub 

Private Sub Form_LoadO 
iVIe.Caption = SystemName & " " & Me.Caption 
datPrimaryRS.DatabaseName = App.Patli & "\eStatement.mdb" 
datPrimaryRS.RecordSource = "select * from [Users] Where [ID] = " & CurrentID 
20 datPrinfiaryRS.Refresh 

datPrimaryRS.Recordset.MoveFirst 

End Sub 
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Private Sub Form_Unload(Cancel As Integer) 
Screen.MousePointer = vbDefault 
End Sub 



5 Private Sub txtFieIds_LostFocus(lndex As Integer) 

If Index = 1 And Trim$(bctFields(4)) = "" And b(tFields(1) <> "" Then 
b(tFields(4) = MakeAlpha(b(tFields(1)) 
End If 



End Sub 
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VERSION 5.00 
5 Begin VB.Form frmUsers 

BorderStyle = 3 'Fixed Dialog 
Caption = "Customer Setup" 
ClientHeiglit = 3690 
ClientLeft = 1095 
10=, ClientTop = 330 
S ClientWidth = 5550 
ill Icon = (Icon) 
31 Liniaopic = "Form2" 

LoclcControls = -1 True 
l|{ MaxButton = 0 'False 
□ (VlinButtDn = 0 'False 
ScaleHeight = 3690 
ScaleWidth = 5550 
ShowlnTaskbar = 0 'False 
20 StartUpPosition = 2 'CenterScreen 
Begin VB.CheckBox chkFields 
DataField = "No Ad" 
DataSource = "datPrimaryRS" 
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Height 


285 




Index = 


2 




Left 


2040 




Tablndex 


= 5 


5 


Top = 


2040 




Width 


3375 




End 






Begin VB.CheckBox chkFleids 




DataFleld 


= "Send Rates" 




DataSource 


= "datPiimaryRS" 


H 


Height 


^ 285 


yi 


Index = 


1 




Left 


2040 




Tablndex 


= 6 




Top = 


2385 


R 


Width 


■ 3375 




End 






Begin VB.TextBox txtFields 




DataField 


= "SortNanfie" 


20 


DataSource 


= "datPrimaryRS' 




Height 


= 315 




Index = 


■ 4 




Left 


2040 
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MaxLength = 50 

Tablndex = 7 

Top = 2760 

Width = 3135 
5 End 

Begin VB.CiieckBox chkFlelds 

DataField = "Suspend" 

DataSource = "datPrimaryRS" 

Height = 285 
igi. Index = 0 
q Left = 2040 
ji Tablndex = 4 
m Top = 1680 

Width = 3375 
lij End 

□ Begin VB.TextBoxtxtFields 

DataField = "Date Added" 
DataSource = "datPrimaryRS" 
Height = 315 
20 Index = 3 

Left = 4380 
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MaxLength = 10 
5 Tablndex = 19 

Top = 0 
Visible = 0 'False 
Width = 315 
End 

10= Begin VB.PictureBox picButtons 
^5 Align = 2 'Align Bottom 
m Appearance = 0 'Flat 
^J^ BorderStyle = 0 'None 
!^ ForeColor = &H80000008& 
1^ Height = 300 
S Left = 0 

ScaleHeight = 300 
ScaleWidth = 5550 
Tablndex = 15 
20 Top = 3045 

Width = 5550 
Begin VB.CommandButton cmdAccounts 
Caption = "SAccounts" 
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Height = 300 
Left = 3420 
Tablndex = 21 
TabStop = 0 'False 
Top = 0 
Width = 975 
End 

Begin VB.CommandButton cmdClose 



Caption 


= "&Close" 


Height 


= 300 


Left 


= 4505 


Tablndex 


= 18 


TabStop 


= 0 'False 


Top 


= 0 


Width 


= 975 



End 

Begin VB.CommandButton cmdUpdate 
Caption = "&Update" 
Height = 300 
Left = 2325 
Tablndex = 8 
Top = 0 
Width = 975 



End 

Begin VB.CommandButton cmdDelete 

Caption = "&Delete" 

Height = 300 

Left = 1217 

Tablndex = 17 

TabStop = 0 'False 

Top = 0 

Width = 975 
End 

Begin VB.CommandButton cmdAdd 



Caption 


= "&Add" 


Height 


= 300 


Left 


= 121 


Tablndex 


= 16 


TabStop 


= 0 'False 


Top 


= 0 


Width 


= 975 



End 
End 

Begin VB.Data datPrimaryRS 
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Align = 2 'Align Bottom 
5 Caption = "" 

Connect = "Access" 

DatabaseName = "C:\estatement\estatement.mdb" 
DefaultCursorType= 0 'DefaultCursor 
DefaultType = 2 'UseODBC 
1(1^ Exclusive = 0 'False 
Q Height = 345 
5 Left =0 
01 Options = 0 

Readonly = 0 'False 
]M RecordsetType = 1 'Dynaset 

O RecordSource = "select* from [Users] Order by [Address Nanfie]" 
Top = 3345 
Visible = 0 'False 
Width = 5550 
20 End 

Begin VB.CheckBox chkFields 
DataField = "Confirmed" 
DataSource = "datPrimaryRS" 
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Height = 285 
Index = 4 
Left = 2040 
Tablndex = 3 
Top = 1340 
Width = 3375 
End 

Begin VB.CheckBox chl<Fields 

DataFleld = "Charge" 

DataSource = "datPrimaryRS" 

Height = 285 

Index = 3 

Left = 2040 

Tablndex = 2 

Top = 1020 

Width = 3375 
End 

Begin VB.TextBox txtFields 
DataFleld = "e-Mail Address" 
DataSource = "datPrimaryRS" 
Height = 285 
Index = 2 
Left = 2040 



MaxLength = 50 
Tablndex = 1 
Top = 700 
Width = 3135 
End 

Begin VB.TextBox txtFields 

BackColor = &H80000004& 

DataField = "ID" 

DataSource = "datPrimaryRS" 

Enabled = 0 'False 

Height = 285 

Index = 0 

Left = 2040 

Tablndex = 10 

Top = 60 

Width = 735 
End 

Begin VB.TextBox txtFields 
DataField = "Address Name" 
DataSource = "datPrimaryRS" 
Height =315 
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Index = 1 
Left = 2040 
MaxLength = 50 
Tablndex = 0 
Top = 380 
Width = 3135 
End 

Begin VB.Label ibILabels 

Caption = "Do not Send Ads:" 

Height = 255 

Index = 8 

Left = 120 

Tablndex = 24 

Top = 2040 

Width =1815 
End 

Begin VB.Label IbILabels 
Caption = "Send CD. Rates:" 
Height = 255 
Index = 7 



Left = 120 

Tablndex = 23 

Top = 2385 

Width =1815 
5 End 

Begin VB.Label IblLabels 

Caption = "Sort Name:" 

Height = 255 

Index = 6 

la Left = 120 

c{ Tablndex = 22 

J Top = 2760 

□1 Width =1815 

iK Begin VB.Label IblLabels 
S Caption = "Suspend e-Mail:" 
Height = 255 
Index = 5 
Left = 120 
20 Tablndex = 20 

Top = 1680 
Width =1815 
End 
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Begin VB. Label IblLabels 

Caption = "Confirmed:" 

Height = 255 

Index = 4 

Left = 120 

Tablndex = 14 

Top = 1340 

Width =1815 
End 

Begin VB.Label IblLabels 

Caption = "Charge:" 

Height = 255 

Index = 3 

Left = 120 

Tablndex = 13 

Top = 1020 

Width =1815 
End 

Begin VB.Label IblLabels 
Caption = "elVlail Address:" 
Height = 255 
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Index 


= 2 


Left 


= 120 


Tablndex 


= 12 


Top 


= 700 


Width 


= 1815 



End 

igL^ Begin VB.LabellblLabels 
y Caption = "Address Name:" 
5 Height = 255 
P Index = 1 

Left = 120 
M Tablndex = 11 
5 Top = 380 
Width =1815 
End 

Begin VB. Label IblLabels 
20 Caption = "Customer ID:" 

Height = 255 
Index = 0 
Left = 120 
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Tablndex = 9 
Top = 60 
Width =1815 
End 
5 End 
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Option Explicit 

5 

Private Sub cmdAddEditClick{) 
MSFIexGiid1.Col = 0 
CurrentID = 0 

la, If MSFIexGridI Text <> "" Then CurrentID = Val(IVISFIexGrid1 Text) 
^ DimfAsNewfrmUsers 
III f.Show vbModal, Me 
^ datPrimaryRS.Refresh 
End Sub 

□ Private Sub cmdClose_Click() 

Screen,l\/IousePointer = vbDefault 
Unload Me 
End Sub 

20 Private Sub datPrimaryRS_Error{DataErr As Integer, Response As Integer) 
This is where you would put error handling code 
'If you want to ignore en^ors, comment out the next line 
'If you want to trap them, add code here to handle them 
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MsgBox "Data error event hit err:" & Error$(DataErr) 
Response = 0 Throw away the error 
End Sub 

5 Private Sub datPrinfiaryRS_Reposition() 
Screen.MousePointer = vbDefault 
On Error Resume Next 
End Sub 

IQ^ Private Sub datPrimaryRS_Validate(Action As integer, Save As Integer) 
rt This is where you put validation code 

This event gets called when the following actions occur 
m Select Case Action 

Case vbDataActionMoveFirst 
1 Case vbDataActionMovePrevious 

S Case vbDataActionMoveNext 
Case vbDataActionMoveLast 
Case vbDataActionAddNew 
Case vbDataActionUpdate 
20 Case vbDataActionDelete 
Case vbDataActionFind 
Case vbDataActionBookmark 
Case vbDataActionClose 
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Screen.MousePointer = vbDefault 
End Select 

Screen.MousePointer = vbHourglass 
End Sub 

Private Sub Form_Load() 
Me.Caption = SystemName & " " & Me.Caption 
datPrimaryRS.DatabaseName = App.Path & "\estatement.mdb" 
datPrimaryRS.RecordSource = "Select [ID],[Sort Name] as [Customer Name],[e-Mail Addre 
ss],[Charge] as Chrg,[Confirmed] as Conf,[Suspend] as Susp, [No Ad], [Send Rates] as 
Rates.lDate Added] from [Users] Order by [Sort Name]" 
MSFIexGridI .FormatString = "ID [Name |e-Mail Address 

(ChrgjConflSuspINo Ad|Rates|Date Added " 

End Sub 

Private Sub Form_Unload(Cancel As Integer) 
Screen.MousePointer = vbDefault 
End Sub 

Private Sub Form_ResizeO 
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On Error Resume Next 
5 This will resize the grid when the form is resized 

MSFIexGrid1.Height= Me.ScaleHeight- picButtons.Height- 60 
End Sub 
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Private Sub MSFIexGrid1_DblClick() 

cmdAddEditClick 

End Sub 
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VERSION 5.00 

Object = "{5E9E78A0-531 B-1 1CF-91 F6-C2863C385E30}#1 .0#0"; "MSFLXGRD.OCX" 
Begin VB.Form frmUsersGrid 
Caption = "Customers" 
ClientHeight = 4290 
ClientLeft =1110 
ClientTop = 345 
CllentWidtli = 8175 
Icon = (Icon) 
LinkTopic = "Forml" 
ScaleHeight = 4290 
ScaleWidth = 8175 
StartUpPosition = 2 'CenterScreen 
Begin MSFIexGridLib.MSFIexGrid MSFIexGridI 

Height = 3495 

Left = 60 

Tablndex = 2 

Top = 60 

Width = 8055 

_ExtentX = 14208 
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_ExtentY = 6165 
.Version = 393216 
Cols = 8 
FixedCols = 0 
ScrollBars = 2 
FormatString = <.„> 
End 

Begin VB.PictureBox picButtons 
Align = 2 'Align Bottom 
Appearance = 0 'Flat 
BorderStyle = 0 'None 
ForeColor = &H80000008& 
Height = 300 
Left = 0 
ScaleHeight = 300 
ScaleWidth = 8175 
Tablndex = 0 
Top = 3645 
Width = 8175 
Begin VB.CommandButton cmdAddEdit 

Caption = "&Add/Edit" 

Height = 300 

Left = 240 



Tablndex = 3 
Top = 0 
Width = 975 
End 

Begin VB.CommandButton cmdClose 

Caption = "SCIose" 

Height = 300 

Left = 1350 

Tablndex = 1 

Top = 0 

Width = 975 
End 
End 

Begin VB.Data datPrimaryRS 
Align = 2 'Align Bottom 
Caption = "" 
Connect = "Access" 
DatabaseName = "C:\ebalance\ebalance.mdb" 
DefaultCursorType= 0 'DefaultCursor 
DefaultType = 2 'UseODBC 
Exclusive = 0 'False 



frmUsersGricl - 2 



1 

o 
a 
o 



Height = 345 
Left = 0 
Options = 0 
Readonly = 0 'False 
RecordsetType = 1 'Dynaset 
RecordSource = "" 



10 Top = 3945 

O 



S! 

m 
m 

m End 
End 



Visible = 0 'False 
Width = 8175 
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Modulel - 1 



Option Explicit 
5 Public fMainForm As frmMain 

Public CurrentlD As Long, LoanDate As Date, LastUpdate As Date 

Public ReportPatti As String, FilePath As String, LoanPath As String 

Public ReportSet As String, ReportDateAdd% 

Global wrkJet As Workspace 
la Global dbs As Database 
rt Global UsersDisabled As Boolean 
•0 Global tbIAccounts As Table 
w Global tbIUsers As Table 
= Global tbIBalances As Table 
if! Global tblTrans As Table 
U Global tbINSF As Table 

Global tbITranCodes As Table 

Global tbIHistory As Table 

Global AutoFlag%, LastConnplete As Date, LastTryAs Date, NextTryAs Date, FilesMissin 
20 g As Integer, Autol As Integer 
Global tbISetup As Table 
Global tblOptions As Table 

Global GBalance%, GTrans%, GStatement%, GLoans%, GCSV%, GQwick%, GMessage$ 
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Global SystemName$, BankName$, StatementFont%, GlFName$ 
Sub MainO 

Dim fLogin As New frmLogin 

SystemName$ = GetSetting{App.Title, "Settings", "SystemName", "eStatement") 
BankName$ = GetSetting{App.Title, "Settings", "BankName", "Demo Bank") 
StatementFont% = Val(GetSetting(App.Title, "Settings", "StatementFonf , "6")) 
GIFName$ = GetSetting{App.Title, "Settings", "GIFName", "") 
'fLogin.Show vbModal 
'IfNotfLogin.OKThen 
' login Failed so exit app 
' End 
'End If 

'Unload fLogin 

fmnSplash.Show 
frmSplash.Refresh 

SetfMainFomi = NewfrmMain 
Load fMainForm 
Unload fmiSplash 

fMainForm.Show 

End Sub ® 2000, By Lamar Bank Incorporated. All rights reserved. 
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The preferred method may also be described with reference to the process steps as set forth in 
Figs. 13 through 17. Now, with first reference to Fig. 13, there is displayed the various steps in logical 
sequence from the beginning of e-statement generation up to the actual building of the e-statements. The 
statement generation step 168 is initiated by verifying input of the various files described above, for 
extraction of certain financial data, such as balances, debits and credits to checking accounts, loan 
accounts and the like, previously described and for ultimate display into the e-statement as shown in Fig. 
1. During final verification step 169, a negative response will block continued processing and return to 
menu reflected in block 170. 

If all files are positively verified at 169, all variables are initialized in step 171. The variables 
initiated in step 171 then are loaded into a format in step 1 72 and dimension variables 1 73 are configured. 
If it is then desired to process the statements at step 174, the functions are run and the statements are 
made at 175. 

The actual creation step 1 76 for the statements is illustrated in Fig. 1 4. For the making of the 
statements 176, the dimension variables 173 are considered and the various source files are searched to 
confinn their presents at step 1 77. If the files are not present, step 1 78, retum to run function 1 75 to step 
1 69. If step 177 confirms the presents of various files, the files are open and the header lines are read as 
step 179. The lines are then read until the top ofthe page is identified, step 180. The first 8 lines are read 
and the account number is extracted at step 181 to confirm account number match up step 1 82. If the 
confirmation cannot be made at step 182, step 180 is repeated until confirmation is established. 
Confirmation of account numberthrough step 182 permits continuance of makeup ofthe statements and 
an HTML file is built by reading each line ofthe statement, step 183. The file creation then is ended, step 
1 84 or steps 1 80 through 1 83 repeated until creation ofthe file. Creation ofthe file enables return step 1 85 
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to process balances in the selected accounts (files) step 1 86. As part of the processing of the balances 
186, the loan files are accessed and processed for balances and the lil<e at 187. The loans are read as 
a sub-step 188. 

The loan sub-step 1 88 is initiated 1 89 to process, as shown in Fig. 1 , two loan files, trial balances 
1 90. Each line of the textfrom the files is conducted at 1 91 and extraction of selected character lines, such 
as 2 through 1 1 for purposes of Fig. 1 is effected through step 192. If the characters are numeric, 1 93 an 
account number match is effected 194. If the characters are not numeric, 193, steps 191 and 192 are 
repeated to search for any information which can be utilized to effect an account match-up. If the account 
number match-up is effected, 194, the balance table is updated with data from 3 file lines, for example, to 
effect the configuration for Fig. 1 atstep195. The file is now complete, 196orsteps191 through 195 are 
repeated until the file is completed and return to main program, 197. 

After the return step 197, the trial balances for deposit accounts are read and the balance 
information is extracted, step 1 98. If the account does not reflect any active loans, step 1 88 is not initiated 
and the deposit trial balances readings is immediately effected. 

The deposit trial balances step 198 will now be described. First, old balances from the data base 
for all accounts are deleted as step 199. Confirmation of the existence of such files is then made at 200. 
If no files are present, trial balances for deposits sub-step 1 98 is not effected. If presence of the files is 
confimfied at 200, the files are processed, for example, 3 as shown in Fig. 1 , incrementally at 201 . Each 
file is opened in sequence at 202 and each line is read to find and extract the account number, 203. The 
account number match-up is either confirmed or not at step 204 and, if not, step 203 is repeated until 
confirmation of the account number match-up. The balance table is updated at step 205 and the file 
creation is completed, 206, or steps 203, 204 and 205 are repeated until completion of the file and retum 
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to transaction processing, step 207. The processing is continued through step 208 by reading all 
transactions and non-sufficient funds information sub-step d 209. 

The reading of the transactions and NSF information, sub-step 209 is as shown in Fig. 17. The 
availability of the transactions file is confirmed at 21 0 and a posting journal is opened, step 211. Each line 
is read and the account number is extracted, step 212 and an account number match is confirmed 213. 
If the account number cannot be matched positively, the file is terminated at step 214 or procedure 212 
repeated until confirmation is established 213. If the file is terminated at step 214, the run function is 
continued, step 175 and the statements of processed at 174. If the account number is confirmed at 213, 
the transaction is added to the transaction table step 21 5 and creation of the file is terminated, 21 6, or steps 
212, 213 and 215 repeated until file completion. File completion enables run function and statement 
processing steps 1 75 and 1 74. respectively, to be effected. Upon completion of the file 21 6, the availability 
of a non-sufficient fund file is checked at step 217 and the NSF report file is opened 218. Each line is read 
and the account number is extracted 219 with account number match up effected at 220. If there is no 
match-up, the file is terminated as step 21 6, or step 21 9 completed to effect an account match-up. After 
account match-up, 220, NSF checks are added to the NSF table for generation in the e-statement at step 
221 and the file is completed, 222 and the statements are created and processed, steps 1 75 and 1 74. The 
e-statements are built as generally shown in Figs. 2 through 12. 

Figs. 17A through 17D illustrate the configuration and orientation of an e-statement printout 300. 
With particular reference to Fig. 17A, the title block 301 is provided at the upper-most portion of the page 
with advertising or other special title trailer 302, provided adjacent the title 301 . A logo 303 or other artistic 
embellishment is presented as field 303. A special notice 304 or disclaimer is provided just prior to printout 
of further specific information. A special printout of the customer number 305 deletes some of the digits 
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to make the customer number incomplete, but is sufficientforthe customerto know and identify his account 
number through his own personal knowledge. 

Field 306 designates a time period for coverage of the information within the statement 300. A 
summary field 307 then is provided which basically summarizes and identifies the various accounts, such 
as checking 308 and savings 309, also with only partial complete digits of the account numbers forsecurity 
purposes, 310 and 311. Respective balances 312 and 313 are provided for the accounts. An account 
activity field 314 serves to identify various debits and credits 315, 316, 317 and 318 for the associated 
accounts. The summary 307 also includes an ending balance column 319 for printing of the respective 
ending balances 320 and 321 for the respective accounts 308, 309. 

More detail is provided in the statement 300 through a breakout of each of the account numbers 
identified in the summary 307. As shown, the first account activity summary 322 is for checking account 
"06", 308. The account number configuration is repeated In field 323 with the previous balance field 324 
being used to Identify the previous date of information summary and the previous balances identified at 
325. A deposit total line 326 is given to identify tiie number 327 of deposits or other credits and a digitized 
total of such deposits and othercredits provided at 328. Likewise, a debit and withdrawal line 329 provides 
the total 330 of debits and otherwithdrawals and a digitized column reflecting such total. Finally, an ending 
balance 332 includes a field 333 for referencing the date of the ending balance and digitized field 332 for 
printing out the amount of such ending balance. General summary Information for the checking account 
308 is provided below line 334. As shown, the account disclosure field 334 may include an identification 
of average daily balance 335 in numerical format 336 and the total numbered days for the statement cycle 
337 and Indicated as "28" in field 328. 
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Details of account transactions are identified at 329, such as deposits and other credits 330 
identified in a date column 331 together with a description 332 such as deposit 333 or direct deposit 334 
or other means. An amount column 335 is provided with digitized amounts identified, such as 336. 

Checks are Identified in the area 337 by date, columns 338, number 339 and amount 340. A star 
or asterisk 341 indicates numerical sequence has been broken. 

As shown in Fig. 17B, the check transactions are continued and there below various miscellaneous 
charges of the bank or commercial organization are indicated at 342 by date 343, reference number 344, 
description 345 and amount 346. These charges may be reflected as a debit card actual debit 347 from 
a business identified as 348 using a business designation code 349 and physical location 350. Electronic 
transfers for automatic payment of utilities may be made, such as at 351 to a supplier 352. 

A daily balance field 352 is provided for the checking account 308 with a breakdown by date 353 
and balance 354, as shown in Figs. 17C. 

Also shown in Fig. 17C is a breakdown for another account, in this case, a savings account 
identified at 353 with a digitized account identifier at 354 with the first 4 digits therein deleted for security 
purposes. A previous balance line 355 provides the previous balance as of a given date, such as 356, 
together with total number of deposits or other credits 357 and total of debits and withdrawals 358 and 
ending balance line is provided 359 and, there below, a field for identifying and calculating the interest 
earned on a year to date basis through the last payment 360. 

General account disclosure information is identified at title 361 which includes an average daily 
balance disclosure 362, the number of days in the statement cycle 363. Interest earned during the cun-ent 
statement period is provided at 364 together with the annual percentage yield as calculated in a percentage 
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format at 365. Finally, the general promotional information or advertising is provided at the end of the 
statement in a general field identified as 366. 

Although the invention has been described in terms of specified embodiments which are set forth 
in detail, it should be understood that this is by illustration only and that the invention is not necessarily 
limited thereto, since alternative embodiments and operating techniques will become apparent to those 
skilled in the art In view of the disclosure. Accordingly, modifications are contemplated which can be made 
without departing from the spirit of the described Invention. 
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